home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / ptolemy / patch_04.lha / PATCH-0.4.1 / patch_pt-0.4.1 < prev    next >
Text File  |  1993-07-26  |  110KB  |  3,673 lines
  1. *** ./config-hppa.mk    Mon Apr 19 04:05:04 1993
  2. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/config-hppa.mk    Wed Apr 14 13:40:24 1993
  3. ***************
  4. *** 0 ****
  5. --- 1,41 ----
  6. + # Configuration makefile to make on an HP-PA machine (7xx or 8xx)
  7. + # running HP-UX with g++2.3.3.u1 or later.  The debug format is the
  8. + # one invented by Utah (HP's format is proprietary) so you will need
  9. + # gdb to debug.
  10. + #
  11. + # @(#)config-hppa.mk    1.4    4/13/93
  12. + # Copyright (c) 1993 The Regents of the University of California.
  13. + #                       All Rights Reserved.
  14. + #               
  15. + # Programmer:  J. T. Buck
  16. + 
  17. + # Get the g++ definitions; we override some below.
  18. + include $(ROOT)/config-g++.mk
  19. + 
  20. + GPPFLAGS=-DUSG -g $(MEMLOG)
  21. + 
  22. + # Use gcc
  23. + CC=gcc
  24. + CFLAGS=-DUSG -g
  25. + 
  26. + # The following is temporary until the problem with LINK_LIBGCC_SPECIAL
  27. + # is cleared up -- must pass dir with libg++.a to linker
  28. + GNULIBDIR=/home/gnu/lib
  29. + LINKFLAGS=-L$(LIBDIR) -L$(GNULIBDIR)
  30. + 
  31. + # If the X11 include directories are in /usr/include/X11, leave
  32. + # the following symbol blank.  Otherwise define it as "-Idir" where
  33. + # dir is the PARENT of the include directory, which must end in X11.
  34. + # (this value says to use the headers we stick in with the distribution).
  35. + X11INCL = -I$(ROOT)/src/compat
  36. + 
  37. + # If the X11 libraries are not on the standard library search path,
  38. + # define the following symbol as "-Ldir" where dir is the directory
  39. + # containing them.  Otherwise leave it blank.
  40. + # (you may need to change this)
  41. + X11LIBDIR = -L/usr/lib/X11R5
  42. + 
  43. + # Tcl symbols
  44. + TCL_ROOT = $(ROOT)/tcl
  45. + TCL_H_DIR = $(TCL_ROOT)/include
  46. + TCL_LIBDIR = $(TCL_ROOT)/lib.$(ARCH)
  47. *** ./src/kernel/Display.cc    Mon Dec  7 16:42:44 1992
  48. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Display.cc    Mon Apr 12 17:49:45 1993
  49. ***************
  50. *** 1,7 ****
  51.   static const char file_id[] = "Display.cc";
  52.   /**************************************************************************
  53.   Version identification:
  54. ! @(#)Display.cc    1.24 12/7/92
  55.   
  56.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  57.   All rights reserved.
  58. --- 1,7 ----
  59.   static const char file_id[] = "Display.cc";
  60.   /**************************************************************************
  61.   Version identification:
  62. ! @(#)Display.cc    1.25 4/10/93
  63.   
  64.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  65.   All rights reserved.
  66. ***************
  67. *** 71,76 ****
  68. --- 71,77 ----
  69.   #include <math.h>
  70.   #include "streamCompat.h"
  71.   #include "paths.h"
  72. + #include "SimControl.h"
  73.   
  74.   // constructor initializes streams and filenames
  75.   XGraph :: XGraph () : strm(0), tmpFileNames(0), count(0), blockIamIn(0), ng(0)
  76. ***************
  77. *** 201,206 ****
  78. --- 202,208 ----
  79.       count[didx]++;
  80.       fcheck(x,dataSet);
  81.       fcheck(y,dataSet);
  82. +     if (SimControl::haltRequested()) return;
  83.       if (count[didx] >= nIgnore && strm[didx]) {
  84.           if (ascii) {
  85.           fprintf(strm[didx], "%g %g\n", x, y);
  86. *** ./src/kernel/EventHorizon.h    Mon Dec  7 15:21:04 1992
  87. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/EventHorizon.h    Mon Apr 12 17:49:45 1993
  88. ***************
  89. *** 16,22 ****
  90.   
  91.   /**************************************************************************
  92.   Version identification:
  93. ! @(#)EventHorizon.h    2.14    12/7/92
  94.   
  95.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  96.   All rights reserved.
  97. --- 16,22 ----
  98.   
  99.   /**************************************************************************
  100.   Version identification:
  101. ! @(#)EventHorizon.h    2.15    2/20/93
  102.   
  103.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  104.   All rights reserved.
  105. ***************
  106. *** 75,81 ****
  107.       // SDFfromUniversal: public FromUniversal, public OutSDFPort
  108.       // SDFToUniversal::SDFToUniversal() : ToEventHorizon(this) {...}
  109.   
  110. !     EventHorizon(PortHole* self): selfPort(self) {}
  111.   
  112.       // virtual destructor
  113.       virtual ~EventHorizon();
  114. --- 75,82 ----
  115.       // SDFfromUniversal: public FromUniversal, public OutSDFPort
  116.       // SDFToUniversal::SDFToUniversal() : ToEventHorizon(this) {...}
  117.   
  118. !     EventHorizon(PortHole* self): selfPort(self), ghostPort(0), wormhole(0)
  119. !          {}
  120.   
  121.       // virtual destructor
  122.       virtual ~EventHorizon();
  123. *** ./src/kernel/Geodesic.h    Wed Nov 25 20:43:37 1992
  124. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Geodesic.h    Mon Apr 12 17:49:46 1993
  125. ***************
  126. *** 7,13 ****
  127.   
  128.   /****************************************************************
  129.   Version identification:
  130. ! @(#)Geodesic.h    2.11    11/25/92
  131.   
  132.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  133.   All rights reserved.
  134. --- 7,13 ----
  135.   
  136.   /****************************************************************
  137.   Version identification:
  138. ! @(#)Geodesic.h    2.12    4/10/93
  139.   
  140.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  141.   All rights reserved.
  142. ***************
  143. *** 118,123 ****
  144. --- 118,127 ----
  145.   
  146.       // return the number of initial particles
  147.       int numInit() const {return numInitialParticles;}
  148. + 
  149. +     // access head and tail of queue
  150. +     Particle* head() const { return pstack.head();}
  151. +     Particle* tail() const { return pstack.tail();}
  152.   
  153.       // Information printing
  154.       StringList print(int verbose = 0) const;
  155. *** ./src/kernel/Histogram.cc    Wed Nov 25 20:39:00 1992
  156. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Histogram.cc    Mon Apr 12 17:49:46 1993
  157. ***************
  158. *** 1,7 ****
  159.   static const char file_id[] = "Histogram.cc";
  160.   /**************************************************************************
  161.   Version identification:
  162. ! @(#)Histogram.cc    2.8    11/25/92
  163.   
  164.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  165.   All rights reserved.
  166. --- 1,7 ----
  167.   static const char file_id[] = "Histogram.cc";
  168.   /**************************************************************************
  169.   Version identification:
  170. ! @(#)Histogram.cc    2.9    2/20/93
  171.   
  172.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  173.   All rights reserved.
  174. ***************
  175. *** 127,140 ****
  176.   }
  177.   
  178.   void XHistogram :: terminate() {
  179. !     int count;
  180. !     double binCtr;
  181. !     int binno = 0;
  182. !     while (hist->getData (binno, count, binCtr)) {
  183. !         display->addPoint (binCtr, float(count));
  184. !         binno++;
  185.       }
  186. -     display->terminate();
  187.       LOG_DEL; delete hist;
  188.       hist = 0;
  189.       LOG_DEL; delete [] optstring;
  190. --- 127,142 ----
  191.   }
  192.   
  193.   void XHistogram :: terminate() {
  194. !     if (numCounts() > 0) {
  195. !         int count;
  196. !         double binCtr;
  197. !         int binno = 0;
  198. !         while (hist->getData (binno, count, binCtr)) {
  199. !             display->addPoint (binCtr, float(count));
  200. !             binno++;
  201. !         }
  202. !         display->terminate();
  203.       }
  204.       LOG_DEL; delete hist;
  205.       hist = 0;
  206.       LOG_DEL; delete [] optstring;
  207. *** ./src/kernel/Linker.cc    Mon Dec  7 16:42:48 1992
  208. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Linker.cc    Wed Apr 14 15:28:49 1993
  209. ***************
  210. *** 1,7 ****
  211.   static const char file_id[] = "Linker.cc";
  212.   /**************************************************************************
  213.   Version identification:
  214. ! @(#)Linker.cc    2.25    12/7/92
  215.   
  216.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  217.   All rights reserved.
  218. --- 1,7 ----
  219.   static const char file_id[] = "Linker.cc";
  220.   /**************************************************************************
  221.   Version identification:
  222. ! @(#)Linker.cc    2.26    4/14/93
  223.   
  224.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  225.   All rights reserved.
  226. ***************
  227. *** 167,173 ****
  228.   // to permit easy interfacing with Tcl.
  229.   
  230.   int Linker::multiLink (int argc, char** argv) {
  231. !     if (!symTableName) {
  232.           Error::abortRun ("Incremental linking disabled");
  233.           return FALSE;
  234.       }
  235. --- 167,178 ----
  236.   // to permit easy interfacing with Tcl.
  237.   
  238.   int Linker::multiLink (int argc, char** argv) {
  239. !     if (linkingNotSupported) {
  240. !         Error::abortRun ("Sorry, incremental linking is not yet ",
  241. !                  "supported on this architecture");
  242. !         return FALSE;
  243. !     }
  244. !     else if (!symTableName) {
  245.           Error::abortRun ("Incremental linking disabled");
  246.           return FALSE;
  247.       }
  248. *** ./src/kernel/Linker.sysdep.h    Wed Nov 25 20:44:25 1992
  249. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Linker.sysdep.h    Wed Apr 14 15:28:59 1993
  250. ***************
  251. *** 1,6 ****
  252.   /**************************************************************************
  253.   Version identification:
  254. ! @(#)Linker.sysdep.h    2.8    11/25/92
  255.   
  256.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  257.   All rights reserved.
  258. --- 1,6 ----
  259.   /**************************************************************************
  260.   Version identification:
  261. ! @(#)Linker.sysdep.h    2.9    4/14/93
  262.   
  263.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  264.   All rights reserved.
  265. ***************
  266. *** 30,36 ****
  267. --- 30,48 ----
  268.   
  269.    This file defines the system-dependent cruft needed for incremental
  270.    linking.
  271. + 
  272. +  The stuff for HP is not yet completed, hence linkingNotSupported is
  273. +  true.
  274. + 
  275.   **************************************************************************/
  276. + 
  277. + // Is linking supported?  Currently not complete for HP/UX.
  278. + const int linkingNotSupported =
  279. + #ifdef hpux
  280. +  1;
  281. + #else
  282. +  0;
  283. + #endif
  284.   
  285.   // The loader should do incremental linking; use a 4.3/Sun-style loader
  286.   // or use the Gnu loader.
  287. *** ./src/kernel/Particle.cc    Wed Nov 25 20:39:59 1992
  288. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Particle.cc    Mon Apr 12 17:49:47 1993
  289. ***************
  290. *** 1,7 ****
  291.   static const char file_id[] = "Particle.cc";
  292.   /**************************************************************************
  293.   Version identification:
  294. ! @(#)Particle.cc    2.17    11/25/92
  295.   
  296.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  297.   All rights reserved.
  298. --- 1,7 ----
  299.   static const char file_id[] = "Particle.cc";
  300.   /**************************************************************************
  301.   Version identification:
  302. ! @(#)Particle.cc    2.19    4/10/93
  303.   
  304.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  305.   All rights reserved.
  306. ***************
  307. *** 207,218 ****
  308.   
  309.   int ComplexParticle :: operator == (const Particle& p) {
  310.       if (!typesEqual(p)) return 0;
  311. !     Complex pdata = Complex(data);
  312. !     return data.real() == pdata.real() &&
  313. !         data.imag() == pdata.imag();
  314.   }
  315.   
  316. - 
  317.   DataType ComplexParticle :: type() const {return COMPLEX;}
  318.    
  319.           // Cast to an int, double, Complex
  320. --- 207,215 ----
  321.   
  322.   int ComplexParticle :: operator == (const Particle& p) {
  323.       if (!typesEqual(p)) return 0;
  324. !     return data == Complex(p);
  325.   }
  326.   
  327.   DataType ComplexParticle :: type() const {return COMPLEX;}
  328.    
  329.           // Cast to an int, double, Complex
  330. ***************
  331. *** 248,258 ****
  332.   // created object.
  333.   
  334.   ParticleStack :: ~ParticleStack () {
  335. !     if (!head) return;
  336.       Particle* p;
  337. !     while (head->link) {
  338. !         p = head;
  339. !         head = head->link;
  340.           LOG_DEL; delete p;
  341.       }
  342.   }
  343. --- 245,255 ----
  344.   // created object.
  345.   
  346.   ParticleStack :: ~ParticleStack () {
  347. !     if (!pHead) return;
  348.       Particle* p;
  349. !     while (pHead->link) {
  350. !         p = pHead;
  351. !         pHead = pHead->link;
  352.           LOG_DEL; delete p;
  353.       }
  354.   }
  355. ***************
  356. *** 261,269 ****
  357.   // the last one)
  358.   void ParticleStack :: freeup () {
  359.       Particle* p;
  360. !     while (head) {
  361. !         p = head;
  362. !         head = head->link;
  363.           p->die();
  364.       }
  365.   }
  366. --- 258,266 ----
  367.   // the last one)
  368.   void ParticleStack :: freeup () {
  369.       Particle* p;
  370. !     while (pHead) {
  371. !         p = pHead;
  372. !         pHead = pHead->link;
  373.           p->die();
  374.       }
  375.   }
  376. ***************
  377. *** 273,279 ****
  378.       Plasma* p = plasmaList;
  379.   
  380.       while (p) {
  381. !         DataType dt = p->head->type();
  382.           if (t == dt) return p;
  383.           p = p->nextPlasma;
  384.       }
  385. --- 270,276 ----
  386.       Plasma* p = plasmaList;
  387.   
  388.       while (p) {
  389. !         DataType dt = p->type();
  390.           if (t == dt) return p;
  391.           p = p->nextPlasma;
  392.       }
  393. *** ./src/kernel/ParticleStack.h    Wed Nov 25 20:44:52 1992
  394. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/ParticleStack.h    Mon Apr 12 17:49:47 1993
  395. ***************
  396. *** 2,8 ****
  397.   #define _ParticleStack_h
  398.   /***************************************************************
  399.   Version identification:
  400. ! @(#)ParticleStack.h    2.3    11/25/92
  401.   
  402.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  403.   All rights reserved.
  404. --- 2,8 ----
  405.   #define _ParticleStack_h
  406.   /***************************************************************
  407.   Version identification:
  408. ! @(#)ParticleStack.h    2.4    4/10/93
  409.   
  410.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  411.   All rights reserved.
  412. ***************
  413. *** 56,71 ****
  414.   public:
  415.       // put a particle onto the stack
  416.       void put(Particle* p) {
  417. !         if (!head) tail = p;
  418. !         p->link = head; head = p;
  419.       }
  420.   
  421.       // get a particle from the stack.
  422.       // derived classes must do the empty-stack check!
  423. !     // if we get the last, tail will still point to it.
  424.       Particle* get() {
  425. !         Particle* p = head;
  426. !         head = p->link;
  427.           return p;
  428.       }
  429.   
  430. --- 56,73 ----
  431.   public:
  432.       // put a particle onto the stack
  433.       void put(Particle* p) {
  434. !         if (!pHead) pTail = p;
  435. !         p->link = pHead; pHead = p;
  436.       }
  437.   
  438.       // get a particle from the stack.
  439.       // derived classes must do the empty-stack check!
  440. !     // if we get the last, pTail will still point to it.
  441. !     // however, tail() will correctly return null.
  442. ! 
  443.       Particle* get() {
  444. !         Particle* p = pHead;
  445. !         pHead = p->link;
  446.           return p;
  447.       }
  448.   
  449. ***************
  450. *** 72,91 ****
  451.       // put an article on the "tail" of the stack (to use the
  452.       // stack like a queue)
  453.       void putTail(Particle* p) {
  454. !         if (head) tail->link = p;
  455. !         else head = p;    // first particle
  456. !         tail = p;    // point to new last particle
  457.           p->link = 0;    // terminate the chain
  458.       }
  459.   
  460.       // empty stack check
  461. !     int empty() const { return head ? 0 : 1;}
  462.   
  463.       // return true if more than one member (for Plasma)
  464. !     int moreThanOne() const { return (head && head->link) ? 1 : 0;}
  465.   
  466.       // constructor (built with 0 or one particle)
  467. !     ParticleStack(Particle*h) : head(h), tail(h) {
  468.           // make sure the stack is "terminated"
  469.           if (h) h->link = 0;
  470.       }
  471. --- 74,93 ----
  472.       // put an article on the "tail" of the stack (to use the
  473.       // stack like a queue)
  474.       void putTail(Particle* p) {
  475. !         if (pHead) pTail->link = p;
  476. !         else pHead = p;    // first particle
  477. !         pTail = p;    // point to new last particle
  478.           p->link = 0;    // terminate the chain
  479.       }
  480.   
  481.       // empty stack check
  482. !     int empty() const { return pHead ? 0 : 1;}
  483.   
  484.       // return true if more than one member (for Plasma)
  485. !     int moreThanOne() const { return (pHead && pHead->link) ? 1 : 0;}
  486.   
  487.       // constructor (built with 0 or one particle)
  488. !     ParticleStack(Particle*h) : pHead(h), pTail(h) {
  489.           // make sure the stack is "terminated"
  490.           if (h) h->link = 0;
  491.       }
  492. ***************
  493. *** 95,103 ****
  494.   
  495.       // return all Particles to their Plasmas
  496.       void freeup ();
  497. ! protected:
  498. !     Particle* head;
  499.   private:
  500. !     Particle* tail;
  501.   };
  502.   #endif
  503. --- 97,110 ----
  504.   
  505.       // return all Particles to their Plasmas
  506.       void freeup ();
  507. ! 
  508. !     // return ptr to head, tail respectively.
  509. !     Particle* head() const { return pHead;}
  510. !     // note that for an empty stack, pTail may not be 0,
  511. !     // hence the following code:
  512. !     Particle* tail() const { return pHead ? pTail : 0;}
  513.   private:
  514. !     Particle* pHead;
  515. !     Particle* pTail;
  516.   };
  517.   #endif
  518. *** ./src/kernel/PortHole.cc    Thu Dec 10 12:47:14 1992
  519. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/PortHole.cc    Mon Apr 12 17:49:49 1993
  520. ***************
  521. *** 17,23 ****
  522.    
  523.   /**************************************************************************
  524.   Version identification:
  525. ! @(#)PortHole.cc    2.43    12/10/92
  526.   
  527.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  528.   All rights reserved.
  529. --- 17,23 ----
  530.    
  531.   /**************************************************************************
  532.   Version identification:
  533. ! @(#)PortHole.cc    2.45    4/10/93
  534.   
  535.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  536.   All rights reserved.
  537. ***************
  538. *** 511,521 ****
  539.           Particle** p = myBuffer->next();
  540.           // Initialize particles on the buffer, so when we
  541.           // restart they do not contain old data
  542. !         (*p)->initialize();
  543.       }
  544.       // If this is an output PortHole (or connected to an
  545.       // input porthole), initialize myGeodesic
  546. !     if(myGeodesic && (isItOutput() || (!asEH() && atBoundary())))
  547.           myGeodesic->initialize();
  548.   }
  549.   
  550. --- 511,524 ----
  551.           Particle** p = myBuffer->next();
  552.           // Initialize particles on the buffer, so when we
  553.           // restart they do not contain old data
  554. !         // fill in any empty holes (which could be caused by
  555. !         // errors of some kinds in previous runs).
  556. !         if (*p)    (*p)->initialize();
  557. !         else *p = myPlasma->get();
  558.       }
  559.       // If this is an output PortHole (or connected to an
  560.       // input porthole), initialize myGeodesic
  561. !     if (far() && myGeodesic && (isItOutput() || (!asEH() && atBoundary())))
  562.           myGeodesic->initialize();
  563.   }
  564.   
  565. *** ./src/kernel/PortHole.h    Wed Nov 25 20:45:03 1992
  566. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/PortHole.h    Mon Apr 12 17:49:49 1993
  567. ***************
  568. *** 14,20 ****
  569.   
  570.   /**************************************************************************
  571.   Version identification:
  572. ! @(#)PortHole.h    2.25    11/25/92
  573.   
  574.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  575.   All rights reserved.
  576. --- 14,20 ----
  577.   
  578.   /**************************************************************************
  579.   Version identification:
  580. ! @(#)PortHole.h    2.26    2/17/93
  581.   
  582.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  583.   All rights reserved.
  584. ***************
  585. *** 359,366 ****
  586.       // class identification
  587.       int isA(const char*) const;
  588.   
  589. !     // am I at wormhole boundary?
  590. !     int atBoundary() const { return (isItInput() == far()->isItInput()); }
  591.   
  592.       // Return me as an eventHorizon
  593.       virtual EventHorizon* asEH();
  594. --- 359,371 ----
  595.       // class identification
  596.       int isA(const char*) const;
  597.   
  598. !     // am I at wormhole boundary?  Disconnected ports return true,
  599. !     // since we implement clusters that way (disconnected ports
  600. !     // represent the cluster boundary)
  601. ! 
  602. !     int atBoundary() const {
  603. !         return (far() ? (isItInput() == far()->isItInput()) : TRUE);
  604. !     }
  605.   
  606.       // Return me as an eventHorizon
  607.       virtual EventHorizon* asEH();
  608. *** ./src/kernel/Plasma.h    Wed Nov 25 20:44:56 1992
  609. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/Plasma.h    Mon Apr 12 17:49:48 1993
  610. ***************
  611. *** 6,12 ****
  612.   #endif
  613.   /**************************************************************************
  614.   Version identification:
  615. ! @(#)Plasma.h    1.7    11/25/92
  616.   
  617.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  618.   All rights reserved.
  619. --- 6,12 ----
  620.   #endif
  621.   /**************************************************************************
  622.   Version identification:
  623. ! @(#)Plasma.h    1.8    4/10/93
  624.   
  625.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  626.   All rights reserved.
  627. ***************
  628. *** 71,79 ****
  629.               p->initialize();
  630.               return p;
  631.           }
  632. !         else return head->useNew();
  633.       }
  634. !     DataType type() { return head->type();}
  635.   
  636.   // constructor -- all objs built are added to the static linked list.
  637.       Plasma(Particle& p) : ParticleStack(&p), nextPlasma(plasmaList) {
  638. --- 71,79 ----
  639.               p->initialize();
  640.               return p;
  641.           }
  642. !         else return head()->useNew();
  643.       }
  644. !     DataType type() { return head()->type();}
  645.   
  646.   // constructor -- all objs built are added to the static linked list.
  647.       Plasma(Particle& p) : ParticleStack(&p), nextPlasma(plasmaList) {
  648. *** ./src/kernel/makefile    Thu Dec 10 15:52:02 1992
  649. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/makefile    Mon Apr 12 17:49:50 1993
  650. ***************
  651. *** 187,193 ****
  652.   DataStruct.o : DataStruct.cc DataStruct.h type.h logNew.h 
  653.   Display.o : Display.cc Display.h type.h logNew.h miscFuncs.h Error.h StringList.h \
  654.     DataStruct.h Block.h NamedObj.h isa.h PortHole.h dataType.h Particle.h ComplexSubset.h \
  655. !   Attribute.h State.h streamCompat.h paths.h 
  656.   DoubleLink.o : DoubleLink.cc DoubleLink.h type.h logNew.h 
  657.   Domain.o : Domain.cc Domain.h StringList.h miscFuncs.h logNew.h DataStruct.h \
  658.     type.h Star.h Block.h NamedObj.h isa.h PortHole.h dataType.h Particle.h ComplexSubset.h \
  659. --- 187,193 ----
  660.   DataStruct.o : DataStruct.cc DataStruct.h type.h logNew.h 
  661.   Display.o : Display.cc Display.h type.h logNew.h miscFuncs.h Error.h StringList.h \
  662.     DataStruct.h Block.h NamedObj.h isa.h PortHole.h dataType.h Particle.h ComplexSubset.h \
  663. !   Attribute.h State.h streamCompat.h paths.h SimControl.h 
  664.   DoubleLink.o : DoubleLink.cc DoubleLink.h type.h logNew.h 
  665.   Domain.o : Domain.cc Domain.h StringList.h miscFuncs.h logNew.h DataStruct.h \
  666.     type.h Star.h Block.h NamedObj.h isa.h PortHole.h dataType.h Particle.h ComplexSubset.h \
  667. *** ./src/kernel/pt_fstream.cc    Wed Nov 25 21:39:21 1992
  668. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/pt_fstream.cc    Mon Apr 12 17:49:50 1993
  669. ***************
  670. *** 26,32 ****
  671.   */
  672.   
  673.   // Programmer:  J. Buck, Kennard
  674. ! // @(#)pt_fstream.cc    1.6 11/25/92
  675.   
  676.   // This defines derived types of ifstream and ofstream that do the following:
  677.   
  678. --- 26,32 ----
  679.   */
  680.   
  681.   // Programmer:  J. Buck, Kennard
  682. ! // @(#)pt_fstream.cc    1.8 4/8/93
  683.   
  684.   // This defines derived types of ifstream and ofstream that do the following:
  685.   
  686. ***************
  687. *** 68,89 ****
  688.   // check for special file names
  689.   // This uses the hardcoded descriptors 0,1,2.  These are appropriate
  690.   // for UNIX only.
  691. ! static int check_special(const char *name, int *pNobufB) {
  692. !     int    fd = -1, bufB = TRUE;
  693.   
  694. !     /*IF*/ if ( strcmp(name,"<cin>")==0 || strcmp(name,"<stdin>")==0 ) {
  695. !         fd = 0;
  696. !     } else if ( strcmp(name,"<cout>")==0 || strcmp(name,"<stdout>")==0 ) {
  697. !         fd = 1;
  698. !         bufB = FALSE;
  699. !     } else if ( strcmp(name,"<cerr>")==0 || strcmp(name,"<stderr>")==0 ) {
  700. !         fd = 2;
  701. !         bufB = FALSE;
  702. !     } else if ( strcmp(name,"<clog>")==0 || strcmp(name,"<stdlog>")==0 ) {
  703. !         fd = 2;
  704.       }
  705. !     if ( pNobufB )
  706. !         *pNobufB = ! bufB;
  707.       return fd;
  708.   }
  709.   
  710. --- 68,99 ----
  711.   // check for special file names
  712.   // This uses the hardcoded descriptors 0,1,2.  These are appropriate
  713.   // for UNIX only.
  714. ! static int check_special(const char *name, int &nobufB) {
  715. !     int    fd = -1;
  716. !     nobufB = FALSE;
  717.   
  718. ! // see if we begin with "<c" or "<std".  If so, skip prefix, else
  719. ! // exit immediately.
  720. !     if (*name != '<') return fd;
  721. !     if (name[1] == 'c') name += 2;
  722. !     else if (strncmp(name+1,"std", 3) == 0) name += 4;
  723. !     else return -1;
  724. ! 
  725. ! // look for remainder of standard names.
  726. !     if (strcmp(name,"in>") == 0)
  727. !         fd = 0;
  728. !     else if (strcmp(name,"out>") == 0)
  729. !     {
  730. !         fd = 1;
  731. !         nobufB = TRUE;
  732.       }
  733. !     else if ( strcmp(name,"err>")==0)
  734. !     {
  735. !         fd = 2;
  736. !         nobufB = TRUE;
  737. !     }
  738. !     else if ( strcmp(name,"log>")==0)
  739. !         fd = 2;
  740.       return fd;
  741.   }
  742.   
  743. ***************
  744. *** 91,103 ****
  745.       open(name,mode,prot);
  746.   }
  747.   
  748.   void pt_ifstream::open(const char* name, int mode, int prot) {
  749. !     int    nobufB;
  750. !     int    fd = check_special(name, &nobufB);
  751. !     if ( fd >= 0 )        rdbuf()->attach(fd);
  752. !     else            ifstream::open(expand(name),mode,prot);
  753. !     if (!*this)    reportError("reading");
  754. !     if (nobufB)    setf(unitbuf);
  755.   }
  756.   
  757.   pt_ofstream::pt_ofstream(const char *name,int mode, int prot) {
  758. --- 101,120 ----
  759.       open(name,mode,prot);
  760.   }
  761.   
  762. + // open file, treating some names as special.
  763. + 
  764.   void pt_ifstream::open(const char* name, int mode, int prot) {
  765. !     int nobufB;
  766. !     int fd = check_special(name, nobufB);
  767. !     if (fd == 0) rdbuf()->attach(fd);
  768. !     else if (fd > 0) {
  769. !         Error::abortRun("Can't open ", name,
  770. !                 " for reading: write-only file descriptor");
  771. !         return;
  772. !     }
  773. !     else ifstream::open(expand(name),mode,prot);
  774. !     if (!*this) reportError("reading");
  775. !     if (nobufB) setf(unitbuf);
  776.   }
  777.   
  778.   pt_ofstream::pt_ofstream(const char *name,int mode, int prot) {
  779. ***************
  780. *** 105,114 ****
  781.   }
  782.   
  783.   void pt_ofstream::open(const char* name, int mode, int prot) {
  784. !     int    nobufB;
  785. !     int    fd = check_special(name, &nobufB);
  786. !     if ( fd >= 0 )        rdbuf()->attach(fd);
  787. !     else            ofstream::open(expand(name),mode,prot);
  788.       if (!*this) reportError("writing");
  789. !     if (nobufB)    setf(unitbuf);
  790.   }
  791. --- 122,136 ----
  792.   }
  793.   
  794.   void pt_ofstream::open(const char* name, int mode, int prot) {
  795. !     int nobufB;
  796. !     int fd = check_special(name, nobufB);
  797. !     if (fd == 0) {
  798. !         Error::abortRun("Can't open ", name,
  799. !                 " for writing: can't write to standard input");
  800. !         return;
  801. !     }
  802. !     else if (fd > 0) rdbuf()->attach(fd);
  803. !     else ofstream::open(expand(name),mode,prot);
  804.       if (!*this) reportError("writing");
  805. !     if (nobufB) setf(unitbuf);
  806.   }
  807. *** ./src/kernel/pt_fstream.h    Wed Nov 25 21:39:20 1992
  808. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/kernel/pt_fstream.h    Mon Apr 12 17:49:51 1993
  809. ***************
  810. *** 31,37 ****
  811.   */
  812.   
  813.   // Programmer:  J. Buck
  814. ! // @(#)pt_fstream.h    1.4 11/25/92
  815.   
  816.   // This defines derived types of ifstream and ofstream that do the following:
  817.   
  818. --- 31,37 ----
  819.   */
  820.   
  821.   // Programmer:  J. Buck
  822. ! // @(#)pt_fstream.h    1.5 3/30/93
  823.   
  824.   // This defines derived types of ifstream and ofstream that do the following:
  825.   
  826. ***************
  827. *** 43,48 ****
  828. --- 43,54 ----
  829.   //    (and <stdin>, <stdout> ,<stderr>) are recognized.
  830.   //
  831.   // Otherwise they are the same as their baseclasses.
  832. + //
  833. + // Warning: calling close() on a pt_ofstream that writes to <cerr> will
  834. + // close the standard error stream, with probably disasterous results.
  835. + // Calling the destructor, however, will do the right thing.  Overriding
  836. + // close() is not sufficient to solve this because of the design of the
  837. + // fstream and filebuf classes.
  838.   
  839.   #include <fstream.h>
  840.   
  841. *** ./src/ptcl/PTcl.cc    Tue Dec  1 18:36:31 1992
  842. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/ptcl/PTcl.cc    Mon Apr 12 17:47:51 1993
  843. ***************
  844. *** 1,6 ****
  845.   /**************************************************************************
  846.   Version identification:
  847. ! @(#)PTcl.cc    1.11    12/1/92
  848.   
  849.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  850.   All rights reserved.
  851. --- 1,6 ----
  852.   /**************************************************************************
  853.   Version identification:
  854. ! @(#)PTcl.cc    1.12    2/17/93
  855.   
  856.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  857.   All rights reserved.
  858. ***************
  859. *** 108,114 ****
  860.   PTcl::~PTcl() {
  861.       LOG_DEL; delete universe;
  862.       removeEntry();
  863. !     if (myInterp) { LOG_DEL; delete interp;}
  864.   }
  865.   
  866.   // Attach the PTcl to a new universe
  867. --- 108,117 ----
  868.   PTcl::~PTcl() {
  869.       LOG_DEL; delete universe;
  870.       removeEntry();
  871. !     if (myInterp) {
  872. !         Tcl_DeleteInterp(interp);
  873. !         interp = 0;
  874. !     }
  875.   }
  876.   
  877.   // Attach the PTcl to a new universe
  878. *** ./src/ptcl/ptclError.cc    Tue Dec  1 18:42:09 1992
  879. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/ptcl/ptclError.cc    Mon Apr 12 17:47:52 1993
  880. ***************
  881. *** 1,7 ****
  882.   static const char file_id[] = "ptclError.cc";
  883.   /*******************************************************************
  884.   SCCS Version identification :
  885. ! @(#)ptclError.cc    1.8    12/1/92
  886.   
  887.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  888.   All rights reserved.
  889. --- 1,7 ----
  890.   static const char file_id[] = "ptclError.cc";
  891.   /*******************************************************************
  892.   SCCS Version identification :
  893. ! @(#)ptclError.cc    1.9    4/8/93
  894.   
  895.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  896.   All rights reserved.
  897. ***************
  898. *** 58,63 ****
  899. --- 58,64 ----
  900.           p3(m1,m2,m3);
  901.           return;
  902.       }
  903. + // if there is already a result, append to it.
  904.       char* res = PTcl::activeInterp->result;
  905.       StringList msg;
  906.       if (res && *res)
  907. ***************
  908. *** 78,97 ****
  909.   
  910.   void
  911.   Error :: error (const NamedObj& o, cc* m1, cc* m2, cc* m3) {
  912. !     if (PTcl::activeInterp == 0) {
  913. !         cerr << "ERROR: ";
  914. !         Error::message(o,m1,m2,m3);
  915. !         return;
  916. !     }
  917. !     if (!m2) m2 = "";
  918. !     if (!m3) m3 = "";
  919. !     StringList s = o.fullName();
  920. !     const char* name = s;
  921. !     int l = strlen(name) + strlen(m1) + strlen(m2) + strlen(m3) + 10;
  922. !     LOG_NEW; char* msg = new char[l];
  923. !     sprintf (msg, "ERROR: %s: %s%s%s", name, m1, m2, m3);
  924. !     Tcl_SetResult(PTcl::activeInterp, msg, TCL_VOLATILE);
  925. !     LOG_DEL; delete msg;
  926.   }
  927.   
  928.   void
  929. --- 79,87 ----
  930.   
  931.   void
  932.   Error :: error (const NamedObj& o, cc* m1, cc* m2, cc* m3) {
  933. !     StringList n_m1 = o.fullName();
  934. !     n_m1 << ":" << m1;
  935. !     error(n_m1,m2,m3);
  936.   }
  937.   
  938.   void
  939. *** ./src/pigilib/compile.c    Wed Nov 25 21:25:30 1992
  940. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/compile.c    Mon Apr 12 17:50:29 1993
  941. ***************
  942. *** 24,30 ****
  943.   */
  944.   /* compile.c  edg
  945.   Version identification:
  946. ! @(#)compile.c    1.24    11/25/92
  947.   Updates:
  948.       4/16/90 = added Oct change lists to keep track of changes so that only
  949.       facets that the user changes get compiled.
  950. --- 24,30 ----
  951.   */
  952.   /* compile.c  edg
  953.   Version identification:
  954. ! @(#)compile.c    1.25    1/19/93
  955.   Updates:
  956.       4/16/90 = added Oct change lists to keep track of changes so that only
  957.       facets that the user changes get compiled.
  958. ***************
  959. *** 44,53 ****
  960.   */
  961.   
  962.   /* Includes */
  963.   #include <stdio.h>
  964.   #include <strings.h>
  965.   #include <errno.h>
  966. - #include "local.h"
  967.   #include "rpc.h"
  968.   #include "paramStructs.h"
  969.   #include "vemInterface.h"
  970. --- 44,53 ----
  971.   */
  972.   
  973.   /* Includes */
  974. + #include "local.h"
  975.   #include <stdio.h>
  976.   #include <strings.h>
  977.   #include <errno.h>
  978.   #include "rpc.h"
  979.   #include "paramStructs.h"
  980.   #include "vemInterface.h"
  981. ***************
  982. *** 429,434 ****
  983. --- 429,436 ----
  984.   Emits connect, input, and output statements.
  985.   */
  986.   #define BLEN 80
  987. + 
  988. + static boolean TermIsMulti();
  989.   
  990.   static boolean
  991.   ConnectPass(facetPtr)
  992. *** ./src/pigilib/edit.c    Wed Nov 25 21:25:37 1992
  993. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/edit.c    Mon Apr 12 17:50:29 1993
  994. ***************
  995. *** 24,30 ****
  996.   */
  997.   /* edit.c  edg
  998.   Version identification:
  999. ! @(#)edit.c    1.31    11/25/92
  1000.   */
  1001.   
  1002.   
  1003. --- 24,30 ----
  1004.   */
  1005.   /* edit.c  edg
  1006.   Version identification:
  1007. ! @(#)edit.c    1.32    1/19/93
  1008.   */
  1009.   
  1010.   
  1011. ***************
  1012. *** 94,105 ****
  1013.   octObject *instPtr;
  1014.   {
  1015.       octObject busProp;
  1016. -     static dmTextItem item = {"Bus Width", 1, 10, NULL, NULL};
  1017. - 
  1018.       GetOrInitBusProp(instPtr, &busProp);
  1019.       return editBusOrDelay(&busProp,"Bus Width","Edit Bus Width");
  1020.   }
  1021.   
  1022.   /* EditSogParams  5/27/88
  1023.   Outputs: return = TRUE if no error.
  1024.   */
  1025. --- 94,105 ----
  1026.   octObject *instPtr;
  1027.   {
  1028.       octObject busProp;
  1029.       GetOrInitBusProp(instPtr, &busProp);
  1030.       return editBusOrDelay(&busProp,"Bus Width","Edit Bus Width");
  1031.   }
  1032.   
  1033. + static boolean EditParamList();
  1034. + 
  1035.   /* EditSogParams  5/27/88
  1036.   Outputs: return = TRUE if no error.
  1037.   */
  1038. ***************
  1039. *** 181,190 ****
  1040.   EditFormalParams(galFacetPtr)
  1041.   octObject *galFacetPtr;
  1042.   {
  1043. !     ParamType *place;
  1044. !     int i, width, maxwidth;
  1045.       ParamListType pList;
  1046. -     dmTextItem *items;
  1047.   
  1048.       ERR_IF1(!GetFormalParams(galFacetPtr, &pList));
  1049.   
  1050. --- 181,188 ----
  1051.   EditFormalParams(galFacetPtr)
  1052.   octObject *galFacetPtr;
  1053.   {
  1054. !     int i;
  1055.       ParamListType pList;
  1056.   
  1057.       ERR_IF1(!GetFormalParams(galFacetPtr, &pList));
  1058.   
  1059. ***************
  1060. *** 410,416 ****
  1061.   boolean
  1062.   OpenPaletteInit()
  1063.   {
  1064. !     char *a, *b, *copy, *techDir, buf[FILENAME_MAX];
  1065.       int i;
  1066.   
  1067.   /* dots in resource names no longer work??? */
  1068. --- 408,414 ----
  1069.   boolean
  1070.   OpenPaletteInit()
  1071.   {
  1072. !     char *a, *b, *copy, *techDir, buf[MAXPATHLEN];
  1073.       int i;
  1074.   
  1075.   /* dots in resource names no longer work??? */
  1076. *** ./src/pigilib/err.c    Wed Nov 25 21:25:42 1992
  1077. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/err.c    Mon Apr 12 17:50:30 1993
  1078. ***************
  1079. *** 24,36 ****
  1080.   */
  1081.   /* err.c  edg
  1082.   Version identification:
  1083. ! @(#)err.c    1.2    11/25/92
  1084.   Error handling functions.
  1085.   */
  1086.   
  1087.   /* Includes */
  1088. - #include <stdio.h>
  1089.   #include "local.h"
  1090.   
  1091.   #define ERR_BUF_N 1000
  1092.   
  1093. --- 24,36 ----
  1094.   */
  1095.   /* err.c  edg
  1096.   Version identification:
  1097. ! @(#)err.c    1.3    1/19/93
  1098.   Error handling functions.
  1099.   */
  1100.   
  1101.   /* Includes */
  1102.   #include "local.h"
  1103. + #include <stdio.h>
  1104.   
  1105.   #define ERR_BUF_N 1000
  1106.   
  1107. *** ./src/pigilib/exec.c    Wed Nov 25 21:25:49 1992
  1108. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/exec.c    Mon Apr 12 17:50:30 1993
  1109. ***************
  1110. *** 24,37 ****
  1111.   */
  1112.   /* exec.c  edg
  1113.   Version identification:
  1114. ! @(#)exec.c    1.15    11/25/92
  1115.   */
  1116.   
  1117.   
  1118.   /* Includes */
  1119.   #include <stdio.h>
  1120.   #include <strings.h>
  1121. - #include "local.h"
  1122.   #include "rpc.h"
  1123.   #include "vemInterface.h"
  1124.   #include "compile.h"
  1125. --- 24,37 ----
  1126.   */
  1127.   /* exec.c  edg
  1128.   Version identification:
  1129. ! @(#)exec.c    1.16    1/19/93
  1130.   */
  1131.   
  1132.   
  1133.   /* Includes */
  1134. + #include "local.h"
  1135.   #include <stdio.h>
  1136.   #include <strings.h>
  1137.   #include "rpc.h"
  1138.   #include "vemInterface.h"
  1139.   #include "compile.h"
  1140. ***************
  1141. *** 40,45 ****
  1142. --- 40,47 ----
  1143.   #include "edit.h"
  1144.   #include "err.h"
  1145.   #include "util.h"
  1146. + #include "ganttIfc.h"
  1147. + 
  1148.   #if defined(PTK)
  1149.   #include "ptk.h"  /* Interpreter name, window name, etc.  aok */
  1150.   #include "ptkCalls.h"  /* C utilities for using tcl from pigi.  aok */
  1151. ***************
  1152. *** 307,314 ****
  1153.   lsList cmdList;
  1154.   long userOptionWord;
  1155.   {
  1156. -     octObject facet;
  1157. - 
  1158.       ViInit("display-schedule");
  1159.       ErrClear();
  1160.       FindClear();
  1161. --- 309,314 ----
  1162. *** ./src/pigilib/ganttIfc.c    Wed Nov 25 21:25:58 1992
  1163. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/ganttIfc.c    Mon Apr 12 17:50:31 1993
  1164. ***************
  1165. *** 24,35 ****
  1166.   */
  1167.   /*  ganttIfc.c  edg
  1168.   Version identification:
  1169. ! @(#)ganttIfc.c    1.7    11/25/92
  1170.   */
  1171.   
  1172.   /* Includes */
  1173. - #include <stdio.h>
  1174.   #include "local.h"
  1175.   #include "rpc.h"
  1176.   #include "err.h"
  1177.   #include "ganttIfc.h"
  1178. --- 24,35 ----
  1179.   */
  1180.   /*  ganttIfc.c  edg
  1181.   Version identification:
  1182. ! @(#)ganttIfc.c    1.8    1/19/93
  1183.   */
  1184.   
  1185.   /* Includes */
  1186.   #include "local.h"
  1187. + #include <stdio.h>
  1188.   #include "rpc.h"
  1189.   #include "err.h"
  1190.   #include "ganttIfc.h"
  1191. ***************
  1192. *** 204,209 ****
  1193. --- 204,210 ----
  1194.       ViDone();
  1195.   }
  1196.   
  1197. + void
  1198.   FindAndMarkError(facetP, name)
  1199.   octObject *facetP;
  1200.   char *name;
  1201. *** ./src/pigilib/ganttIfc.h    Wed Nov 25 21:27:48 1992
  1202. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/ganttIfc.h    Mon Apr 12 17:50:31 1993
  1203. ***************
  1204. *** 24,30 ****
  1205.   */
  1206.   /*  ganttIfc.h  edg
  1207.   Version identification:
  1208. ! @(#)ganttIfc.h    1.2    11/25/92
  1209.   */
  1210.   
  1211.   extern void FrameSetFacet();
  1212. --- 24,30 ----
  1213.   */
  1214.   /*  ganttIfc.h  edg
  1215.   Version identification:
  1216. ! @(#)ganttIfc.h    1.3    1/19/93
  1217.   */
  1218.   
  1219.   extern void FrameSetFacet();
  1220. ***************
  1221. *** 34,39 ****
  1222. --- 34,40 ----
  1223.   extern int DestroyFrames();
  1224.   extern int GanttMan();
  1225.   extern void GanttErr();
  1226. + extern void FindAndMarkError();
  1227.   
  1228.   /* Functions below should only be called by GGI */
  1229.   extern boolean GanttRun();
  1230. *** ./src/pigilib/icon.c    Mon Dec  7 17:20:39 1992
  1231. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/icon.c    Mon Apr 12 17:50:32 1993
  1232. ***************
  1233. *** 24,40 ****
  1234.   */
  1235.   /*
  1236.       icon.c  edg
  1237. !     Version: @(#)icon.c    2.16 12/7/92
  1238.   */
  1239.   
  1240.   
  1241.   /* Includes */
  1242.   #include <stdio.h>
  1243.   #include <sys/file.h>
  1244.   #include <sys/param.h>
  1245.   #include <sys/stat.h>
  1246.   #include <pwd.h>
  1247. - #include "local.h"
  1248.   #include "rpc.h"
  1249.   #include "util.h"
  1250.   #include "err.h"
  1251. --- 24,40 ----
  1252.   */
  1253.   /*
  1254.       icon.c  edg
  1255. !     Version: @(#)icon.c    2.17 1/19/93
  1256.   */
  1257.   
  1258.   
  1259.   /* Includes */
  1260. + #include "local.h"
  1261.   #include <stdio.h>
  1262.   #include <sys/file.h>
  1263.   #include <sys/param.h>
  1264.   #include <sys/stat.h>
  1265.   #include <pwd.h>
  1266.   #include "rpc.h"
  1267.   #include "util.h"
  1268.   #include "err.h"
  1269. ***************
  1270. *** 111,136 ****
  1271.       if (background) strcat(buf, "&");
  1272.   }
  1273.   
  1274. - /* 5/8/90
  1275. - Open a window and run xedit (or user selected program) on a file.
  1276. - Does not run in the background.
  1277. - This routine does not return until program is exited.
  1278. - */
  1279. - static boolean
  1280. - EditFile(fileName)
  1281. - char *fileName;
  1282. - {
  1283. -     char buf[512];
  1284. -     genDispCommand(buf, fileName, 0);
  1285. -     PrintDebug(buf);
  1286. -     if (util_csystem(buf)) {
  1287. -     sprintf(buf, "Cannot edit Ptolemy code file '%s'", fileName);
  1288. -     ErrAdd(buf);
  1289. -     return(FALSE);
  1290. -     }
  1291. -     return (TRUE);
  1292. - }
  1293. - 
  1294.   /* 8/3/90
  1295.   Open a window and run xedit on a file.
  1296.   Runs in the background and returns immediately.
  1297. --- 111,116 ----
  1298. ***************
  1299. *** 512,518 ****
  1300.   IconFileToSourceFile (iconFile, sourceFile, domain)
  1301.   char* iconFile, *sourceFile, *domain;
  1302.   {
  1303. !     char dir[512], *base, *dom;
  1304.       int i, n;
  1305.   
  1306.       strcpy (dir, iconFile);
  1307. --- 492,498 ----
  1308.   IconFileToSourceFile (iconFile, sourceFile, domain)
  1309.   char* iconFile, *sourceFile, *domain;
  1310.   {
  1311. !     char dir[512], *base, *dom = 0;
  1312.       int i, n;
  1313.   
  1314.       strcpy (dir, iconFile);
  1315. *** ./src/pigilib/kernelCalls.cc    Thu Nov 26 00:45:37 1992
  1316. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/kernelCalls.cc    Mon Apr 12 17:50:32 1993
  1317. ***************
  1318. *** 1,7 ****
  1319.   static const char file_id[] = "kernelCalls.cc";
  1320.   /* 
  1321.   Version identification:
  1322. ! @(#)kernelCalls.cc    2.47    11/26/92
  1323.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  1324.   All rights reserved.
  1325.   
  1326. --- 1,7 ----
  1327.   static const char file_id[] = "kernelCalls.cc";
  1328.   /* 
  1329.   Version identification:
  1330. ! @(#)kernelCalls.cc    2.48    2/17/93
  1331.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  1332.   All rights reserved.
  1333.   
  1334. ***************
  1335. *** 260,265 ****
  1336. --- 260,266 ----
  1337.       const char* dom = KnownBlock::domain();
  1338.       if (strcmp(dom, oldDom) == 0) return;
  1339.       LOG << "domain " << dom << "\n";
  1340. +     oldDom = dom;
  1341.   }
  1342.   
  1343.   // Return the domain of an object: note, it may not be the current
  1344. *** ./src/pigilib/local.h    Wed Nov 25 21:28:04 1992
  1345. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/local.h    Mon Apr 12 17:50:33 1993
  1346. ***************
  1347. *** 22,53 ****
  1348.   ENHANCEMENTS, OR MODIFICATIONS.
  1349.                               COPYRIGHTENDKEY
  1350.   */
  1351.   /* local.h  edg
  1352.   Version identification:
  1353. ! @(#)local.h    1.4    11/25/92
  1354.   This is a local include file for useful macros and definitions.
  1355.   */
  1356.   
  1357.   /* boolean data type */
  1358.   typedef int boolean;
  1359. ! #define TRUE    (1)
  1360. ! #define FALSE    (0)
  1361.   
  1362.   #define EOS '\0' /* end of string */
  1363.   
  1364. ! extern char *calloc();
  1365. ! /*
  1366. ! extern void free();
  1367. ! */
  1368.   #ifdef USG
  1369. ! extern int sprintf();
  1370.   #else
  1371. ! extern char *sprintf();
  1372.   #endif
  1373.   
  1374.   /* buffer length constants */
  1375.   #define MSG_BUF_MAX 512 /* for messages */
  1376.   
  1377. - #ifndef FILENAME_MAX
  1378. - #define FILENAME_MAX 512 /* for filename paths */
  1379.   #endif
  1380. --- 22,66 ----
  1381.   ENHANCEMENTS, OR MODIFICATIONS.
  1382.                               COPYRIGHTENDKEY
  1383.   */
  1384. + #ifndef _local_h
  1385. + #define _local_h 1
  1386. + 
  1387.   /* local.h  edg
  1388.   Version identification:
  1389. ! @(#)local.h    1.5    1/19/93
  1390.   This is a local include file for useful macros and definitions.
  1391.   */
  1392.   
  1393. + #include "ansi.h"
  1394. + #ifdef HAS_STDARG
  1395. + #include <stddef.h>
  1396. + #define RAW_PTR void *
  1397. + #else
  1398. + #define RAW_PTR char *
  1399. + #endif
  1400. + 
  1401.   /* boolean data type */
  1402.   typedef int boolean;
  1403. ! #define TRUE    1
  1404. ! #define FALSE    0
  1405.   
  1406.   #define EOS '\0' /* end of string */
  1407.   
  1408. ! extern RAW_PTR calloc ARGS((size_t,size_t));
  1409. ! extern RAW_PTR malloc ARGS((size_t));
  1410. ! 
  1411. ! #include <sys/param.h>
  1412. ! 
  1413.   #ifdef USG
  1414. ! extern int sprintf ARGS((char*, const char*, ...));
  1415. ! extern char *getcwd ARGS((char *,size_t));
  1416. ! #define getwd(foo) getcwd(foo,MAXPATHLEN-1)
  1417.   #else
  1418. ! extern char *sprintf ARGS((char*, const char*, ...));
  1419. ! extern char *getwd ARGS((char *));
  1420.   #endif
  1421.   
  1422.   /* buffer length constants */
  1423.   #define MSG_BUF_MAX 512 /* for messages */
  1424.   
  1425.   #endif
  1426. *** ./src/pigilib/main.c    Tue Dec  1 22:46:04 1992
  1427. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/main.c    Mon Apr 12 17:50:33 1993
  1428. ***************
  1429. *** 24,36 ****
  1430.   */
  1431.   /*  main.c  edg  5/9/90
  1432.   Version identification:
  1433. ! @(#)main.c    2.21    12/1/92
  1434.   Initialization code for pigiRpc.
  1435.   */
  1436.   
  1437.   /* Includes */
  1438. - #include <stdio.h>
  1439.   #include "local.h"
  1440.   #include "rpc.h"
  1441.   #include "vemInterface.h"
  1442.   #include "compile.h"
  1443. --- 24,36 ----
  1444.   */
  1445.   /*  main.c  edg  5/9/90
  1446.   Version identification:
  1447. ! @(#)main.c    2.22    1/19/93
  1448.   Initialization code for pigiRpc.
  1449.   */
  1450.   
  1451.   /* Includes */
  1452.   #include "local.h"
  1453. + #include <stdio.h>
  1454.   #include "rpc.h"
  1455.   #include "vemInterface.h"
  1456.   #include "compile.h"
  1457. ***************
  1458. *** 97,102 ****
  1459. --- 97,103 ----
  1460.   {
  1461.       CompileEnd();
  1462.       RPCExit(0);
  1463. +     return 0;
  1464.   }
  1465.   
  1466.   
  1467. ***************
  1468. *** 135,140 ****
  1469. --- 136,143 ----
  1470.       {ExitApp, "Other", "exit-pigi"}
  1471.   };
  1472.   
  1473. + static void welcome_window();
  1474. + 
  1475.   long
  1476.   UserMain(display, spot, cmdList, userOptionWord, array) /* ARGSUSED */
  1477.   char *display;
  1478. ***************
  1479. *** 177,183 ****
  1480.   
  1481.   void pr_accum_string();
  1482.   
  1483. ! welcome_window ()
  1484.   {
  1485.       accum_string ("Ptolemy Interactive Graphics Interface\n");
  1486.       accum_string (pigiVersion);
  1487. --- 180,186 ----
  1488.   
  1489.   void pr_accum_string();
  1490.   
  1491. ! static void welcome_window ()
  1492.   {
  1493.       accum_string ("Ptolemy Interactive Graphics Interface\n");
  1494.       accum_string (pigiVersion);
  1495. *** ./src/pigilib/makefile    Thu Oct 22 17:44:15 1992
  1496. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/makefile    Mon Apr 12 17:50:34 1993
  1497. ***************
  1498. *** 88,154 ****
  1499.   # Don't add anything after the next line; makedepend will zap it.
  1500.   # DO NOT DELETE THIS LINE -- make depend depends on it.
  1501.   
  1502. ! main.o : main.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1503. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1504.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1505.     compile.h edit.h exec.h util.h icon.h misc.h ganttIfc.h options.h utilities.h \
  1506.     err.h 
  1507. ! util.o : util.c local.h err.h util.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1508. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1509.     ../../octtools/include/copyright.h ../../octtools/include/region.h octIfc.h \
  1510.     vemInterface.h 
  1511.   utilities.o : utilities.c ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1512.     ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1513.     ../../octtools/include/copyright.h ../../octtools/include/region.h exec.h 
  1514. ! compile.o : compile.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1515. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1516.     ../../octtools/include/copyright.h ../../octtools/include/region.h paramStructs.h \
  1517.     vemInterface.h util.h err.h main.h octIfc.h octMacros.h 
  1518. ! paramStructs.o : paramStructs.c local.h util.h err.h paramStructs.h 
  1519. ! vemInterface.o : vemInterface.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1520. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1521.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h octMacros.h 
  1522. ! edit.o : edit.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1523. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1524.     ../../octtools/include/copyright.h ../../octtools/include/region.h ../../octtools/include/oh.h \
  1525.     paramStructs.h vemInterface.h util.h err.h octIfc.h exec.h 
  1526. ! exec.o : exec.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1527. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1528.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1529. !   compile.h octIfc.h ../../octtools/include/oh.h edit.h err.h util.h 
  1530. ! err.o : err.c local.h 
  1531. ! ganttChart.o : ganttChart.c local.h err.h vemInterface.h 
  1532. ! ganttIfc.o : ganttIfc.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1533. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1534.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h ganttIfc.h \
  1535.     ../../octtools/include/oh.h vemInterface.h 
  1536. ! octIfc.o : octIfc.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1537. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1538.     ../../octtools/include/copyright.h ../../octtools/include/region.h paramStructs.h \
  1539.     err.h util.h octMacros.h mkIcon.h ../../octtools/include/oh.h mkTerm.h 
  1540. ! icon.o : icon.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1541. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1542.     ../../octtools/include/copyright.h ../../octtools/include/region.h util.h err.h \
  1543.     vemInterface.h octMacros.h palette.h main.h 
  1544. ! misc.o : misc.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1545. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1546.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1547.     util.h octIfc.h octMacros.h err.h main.h 
  1548. ! mkTerm.o : mkTerm.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1549. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1550.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h octMacros.h \
  1551.     ../../octtools/include/oh.h mkTerm.h mkIcon.h 
  1552. ! mkIcon.o : mkIcon.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1553. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1554.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h mkTerm.h \
  1555.     octIfc.h octMacros.h util.h ../../octtools/include/oh.h vemInterface.h mkIcon.h 
  1556. ! palette.o : palette.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1557. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1558.     ../../octtools/include/copyright.h ../../octtools/include/region.h ../../octtools/include/oh.h \
  1559.     octMacros.h err.h mkIcon.h util.h octIfc.h 
  1560.   xfunctions.o : xfunctions.c 
  1561. ! options.o : options.c local.h ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1562. !   ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1563.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1564.     edit.h exec.h util.h icon.h misc.h err.h 
  1565.   kernelCalls.o : kernelCalls.cc kernelCalls.h ../../src/kernel/InterpGalaxy.h \
  1566. --- 88,155 ----
  1567.   # Don't add anything after the next line; makedepend will zap it.
  1568.   # DO NOT DELETE THIS LINE -- make depend depends on it.
  1569.   
  1570. ! main.o : main.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1571. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1572.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1573.     compile.h edit.h exec.h util.h icon.h misc.h ganttIfc.h options.h utilities.h \
  1574.     err.h 
  1575. ! util.o : util.c local.h ../../octtools/include/ansi.h err.h util.h ../../octtools/include/rpc.h \
  1576. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1577.     ../../octtools/include/copyright.h ../../octtools/include/region.h octIfc.h \
  1578.     vemInterface.h 
  1579.   utilities.o : utilities.c ../../octtools/include/rpc.h ../../octtools/include/port.h \
  1580.     ../../octtools/include/oct.h ../../octtools/include/ansi.h ../../octtools/include/list.h \
  1581.     ../../octtools/include/copyright.h ../../octtools/include/region.h exec.h 
  1582. ! compile.o : compile.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1583. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1584.     ../../octtools/include/copyright.h ../../octtools/include/region.h paramStructs.h \
  1585.     vemInterface.h util.h err.h main.h octIfc.h octMacros.h 
  1586. ! paramStructs.o : paramStructs.c local.h ../../octtools/include/ansi.h util.h \
  1587. !   err.h paramStructs.h 
  1588. ! vemInterface.o : vemInterface.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1589. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1590.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h octMacros.h 
  1591. ! edit.o : edit.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1592. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1593.     ../../octtools/include/copyright.h ../../octtools/include/region.h ../../octtools/include/oh.h \
  1594.     paramStructs.h vemInterface.h util.h err.h octIfc.h exec.h 
  1595. ! exec.o : exec.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1596. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1597.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1598. !   compile.h octIfc.h ../../octtools/include/oh.h edit.h err.h util.h ganttIfc.h 
  1599. ! err.o : err.c local.h ../../octtools/include/ansi.h 
  1600. ! ganttChart.o : ganttChart.c local.h ../../octtools/include/ansi.h err.h vemInterface.h 
  1601. ! ganttIfc.o : ganttIfc.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1602. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1603.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h ganttIfc.h \
  1604.     ../../octtools/include/oh.h vemInterface.h 
  1605. ! octIfc.o : octIfc.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1606. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1607.     ../../octtools/include/copyright.h ../../octtools/include/region.h paramStructs.h \
  1608.     err.h util.h octMacros.h mkIcon.h ../../octtools/include/oh.h mkTerm.h 
  1609. ! icon.o : icon.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1610. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1611.     ../../octtools/include/copyright.h ../../octtools/include/region.h util.h err.h \
  1612.     vemInterface.h octMacros.h palette.h main.h 
  1613. ! misc.o : misc.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1614. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1615.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1616.     util.h octIfc.h octMacros.h err.h main.h 
  1617. ! mkTerm.o : mkTerm.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1618. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1619.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h octMacros.h \
  1620.     ../../octtools/include/oh.h mkTerm.h mkIcon.h 
  1621. ! mkIcon.o : mkIcon.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1622. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1623.     ../../octtools/include/copyright.h ../../octtools/include/region.h err.h mkTerm.h \
  1624.     octIfc.h octMacros.h util.h ../../octtools/include/oh.h vemInterface.h mkIcon.h 
  1625. ! palette.o : palette.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1626. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1627.     ../../octtools/include/copyright.h ../../octtools/include/region.h ../../octtools/include/oh.h \
  1628.     octMacros.h err.h mkIcon.h util.h octIfc.h 
  1629.   xfunctions.o : xfunctions.c 
  1630. ! options.o : options.c local.h ../../octtools/include/ansi.h ../../octtools/include/rpc.h \
  1631. !   ../../octtools/include/port.h ../../octtools/include/oct.h ../../octtools/include/list.h \
  1632.     ../../octtools/include/copyright.h ../../octtools/include/region.h vemInterface.h \
  1633.     edit.h exec.h util.h icon.h misc.h err.h 
  1634.   kernelCalls.o : kernelCalls.cc kernelCalls.h ../../src/kernel/InterpGalaxy.h \
  1635. *** ./src/pigilib/misc.c    Wed Nov 25 21:26:19 1992
  1636. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/misc.c    Mon Apr 12 17:50:34 1993
  1637. ***************
  1638. *** 24,36 ****
  1639.   */
  1640.   /* misc.c  edg
  1641.   Version identification:
  1642. ! @(#)misc.c    2.15    11/25/92
  1643.   */
  1644.   
  1645.   /* Includes */
  1646.   #include <stdio.h>
  1647.   #include <strings.h>
  1648. - #include "local.h"
  1649.   #include "rpc.h"
  1650.   #include "vemInterface.h"
  1651.   #include "util.h"
  1652. --- 24,36 ----
  1653.   */
  1654.   /* misc.c  edg
  1655.   Version identification:
  1656. ! @(#)misc.c    2.18    4/7/93
  1657.   */
  1658.   
  1659.   /* Includes */
  1660. + #include "local.h"
  1661.   #include <stdio.h>
  1662.   #include <strings.h>
  1663.   #include "rpc.h"
  1664.   #include "vemInterface.h"
  1665.   #include "util.h"
  1666. ***************
  1667. *** 47,52 ****
  1668. --- 47,53 ----
  1669.   
  1670.   /* uses the ptman script to print it out the man page for the given
  1671.      star or galaxy */
  1672. + boolean
  1673.   ManPage(starName)
  1674.   char *starName;
  1675.   {
  1676. ***************
  1677. *** 128,133 ****
  1678. --- 129,139 ----
  1679.       ViDone();
  1680.   }
  1681.   
  1682. + 
  1683. + /***********************************************************************
  1684. + PrintFacet(): calls "prfacet" utility to save PostScript to printer
  1685. + or file.
  1686. + ***********************************************************************/
  1687.   int
  1688.   PrintFacet(spot, cmdList, userOptionWord) /* ARGSUSED */
  1689.   RPCSpot *spot;
  1690. ***************
  1691. *** 134,168 ****
  1692.   lsList cmdList;
  1693.   long userOptionWord;
  1694.   {
  1695. !     static dmTextItem item = {"Options (e.g. -p -b 3x3):", 1, 40, "-x -X", NULL};
  1696. !     char buf[512];
  1697. !     octObject facet;
  1698. !     char* fullName;
  1699.   
  1700. !     ViInit("print facet");
  1701. !     ErrClear();
  1702.   
  1703. !     facet.objectId = spot->facet;
  1704. !     if (octGetById(&facet) != OCT_OK) {
  1705. !         PrintErr(octErrorString());
  1706. !         ViDone();
  1707. !     }
  1708. !     octFullName(&facet,&fullName);
  1709.   
  1710. !     if (dmMultiText("print facet (PRINTER variable must be set)", 1, &item) != VEM_OK) {
  1711. !         PrintCon("Aborted entry");
  1712. !         ViDone();
  1713. !     }
  1714. !     sprintf(buf, "prfacet %s %s", item.value, fullName);
  1715. !     PrintDebug(buf);
  1716. !     if (util_csystem(buf)) {
  1717. !         sprintf(buf, "Error invoking prfacet utility.");
  1718. !     PrintErr(buf);
  1719. !     }
  1720. !     ViDone();
  1721. ! }
  1722.   
  1723.   
  1724.   int
  1725.   ERFilterDesign(spot, cmdList, userOptionWord) /* ARGSUSED */
  1726.   RPCSpot *spot;
  1727. --- 140,202 ----
  1728.   lsList cmdList;
  1729.   long userOptionWord;
  1730.   {
  1731. !     static dmTextItem items[] = {
  1732. !         {"oct2ps options:", 1, 40, "-x -X -b 3x3", NULL},
  1733. !         {"(P)rint or to (F)ile:", 1, 40, "P", NULL},
  1734. !         {"file name:", 1, 40, "", NULL}
  1735. !     };
  1736. ! #define ITEMS_N sizeof(items) / sizeof(dmTextItem)
  1737.   
  1738. !     char buf[512];
  1739. !     octObject facet;
  1740. !     char* fullName;
  1741. !     char fileName[128];
  1742.   
  1743. ! /** Begin here. **/
  1744. !     ViInit("print facet");
  1745. !     ErrClear();
  1746.   
  1747. ! /** Get facet information. **/
  1748. !     facet.objectId = spot->facet;
  1749. !     if (octGetById(&facet) != OCT_OK) {
  1750. !         PrintErr(octErrorString());
  1751. !         ViDone();
  1752. !     }
  1753. !     octFullName(&facet, &fullName);
  1754.   
  1755. + /** Display dialog box. **/
  1756. +     if (dmMultiText("print facet (PRINTER variable must be set)",
  1757. +             ITEMS_N, items) != VEM_OK) {
  1758. +         PrintCon("Aborted entry");
  1759. +         ViDone();
  1760. +     }
  1761.   
  1762. + /** Error-check the user input. **/
  1763. +     if ((items[1].value[0] == 'f') || (items[1].value[0] == 'F')) {
  1764. +         fileName[0] = '\000'; /* Clear previous value. */
  1765. +         sscanf(items[2].value, "%s", fileName); /* Get first word. */
  1766. +         if (!fileName[0]) {
  1767. +             PrintErr("print-facet needs a filename");
  1768. +             ViDone();
  1769. +         }
  1770. +         sprintf(buf, "prfacet -TOFILE %s %s %s", fileName,
  1771. +                 items[0].value, fullName);
  1772. +     } else {
  1773. +         sprintf(buf, "prfacet %s %s", items[0].value, fullName);
  1774. +     }
  1775. + 
  1776. + /** Call the prfacet command. **/
  1777. +     PrintDebug(buf);
  1778. +     if (util_csystem(buf)) {
  1779. +         sprintf(buf, "Error invoking prfacet utility.");
  1780. +         PrintErr(buf);
  1781. +     }
  1782. +     ViDone();
  1783. + 
  1784. + #undef ITEMS_N
  1785. + } /* end PrintFacet() */
  1786. + 
  1787. + 
  1788.   int
  1789.   ERFilterDesign(spot, cmdList, userOptionWord) /* ARGSUSED */
  1790.   RPCSpot *spot;
  1791. ***************
  1792. *** 254,259 ****
  1793. --- 288,295 ----
  1794.       ViDone();
  1795.   }
  1796.   
  1797. + static void AdjustScalePan();
  1798. + 
  1799.   /* 6/27/89 = tries to open facet read-only first */
  1800.   int 
  1801.   RpcOpenFacet(spot, cmdList, userOptionWord) /* ARGSUSED */
  1802. ***************
  1803. *** 272,278 ****
  1804.       RPCArg *theArg;
  1805.       Window newWindow;  /* the vem window looking at facet */
  1806.       octBox bbox;  /*  an argument to octBB, return value not used */
  1807. !     void AdjustScalePan(); /* this function is right after RpcOpenFacet */
  1808.   
  1809.       ViInit("open-facet");
  1810.       ErrClear();
  1811. --- 308,314 ----
  1812.       RPCArg *theArg;
  1813.       Window newWindow;  /* the vem window looking at facet */
  1814.       octBox bbox;  /*  an argument to octBB, return value not used */
  1815. ! 
  1816.   
  1817.       ViInit("open-facet");
  1818.       ErrClear();
  1819. *** ./src/pigilib/mkIcon.c    Wed Nov 25 21:26:26 1992
  1820. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/mkIcon.c    Mon Apr 12 17:50:35 1993
  1821. ***************
  1822. *** 1,6 ****
  1823.   /* mkIcon.c  edg
  1824.   Version identification:
  1825. ! @(#)mkIcon.c    1.15    11/25/92
  1826.   */
  1827.   
  1828.   /*
  1829. --- 1,6 ----
  1830.   /* mkIcon.c  edg
  1831.   Version identification:
  1832. ! @(#)mkIcon.c    1.16    1/19/93
  1833.   */
  1834.   
  1835.   /*
  1836. ***************
  1837. *** 29,37 ****
  1838.   */
  1839.   
  1840.   /* Includes */
  1841.   #include <stdio.h>
  1842.   #include <sys/file.h>
  1843. - #include "local.h"
  1844.   #include "rpc.h"
  1845.   #include "err.h"
  1846.   #include "mkTerm.h"
  1847. --- 29,37 ----
  1848.   */
  1849.   
  1850.   /* Includes */
  1851. + #include "local.h"
  1852.   #include <stdio.h>
  1853.   #include <sys/file.h>
  1854.   #include "rpc.h"
  1855.   #include "err.h"
  1856.   #include "mkTerm.h"
  1857. ***************
  1858. *** 45,51 ****
  1859.   
  1860.   #define ERRBUF_MAX 1000
  1861.   
  1862. ! static octObject starBoxLayer, galBoxLayer, iconBackgrLayer, iconShadowLayer;
  1863.   
  1864.   /* 8/24/89
  1865.   Check to see if icon already exists.
  1866. --- 45,51 ----
  1867.   
  1868.   #define ERRBUF_MAX 1000
  1869.   
  1870. ! static octObject starBoxLayer, galBoxLayer, iconBackgrLayer;
  1871.   
  1872.   /* 8/24/89
  1873.   Check to see if icon already exists.
  1874. ***************
  1875. *** 134,140 ****
  1876.   IconType type;
  1877.   {
  1878.       octObject srcFacet;
  1879. !     char buf[FILENAME_MAX];
  1880.       char *techDir;
  1881.   
  1882.       srcFacet.type = OCT_FACET;
  1883. --- 134,140 ----
  1884.   IconType type;
  1885.   {
  1886.       octObject srcFacet;
  1887. !     char buf[MAXPATHLEN];
  1888.       char *techDir;
  1889.   
  1890.       srcFacet.type = OCT_FACET;
  1891. ***************
  1892. *** 216,244 ****
  1893.   }
  1894.   
  1895.   static boolean
  1896. - MkShadow(layerPtr, size)
  1897. - octObject *layerPtr;
  1898. - int size;
  1899. - {
  1900. -     Shape box;
  1901. -     struct octPoint corners[2];
  1902. -     static struct octPoint noTranslate = {0, 0};
  1903. -     octObject dummy;
  1904. - 
  1905. -     box.type = OCT_BOX;
  1906. -     box.points = corners;
  1907. -     box.points_n = 2;
  1908. - 
  1909. -     corners[0].x = -60;
  1910. -     corners[0].y = 40;
  1911. -     corners[1].x = 40;
  1912. -     corners[1].y = 40-size*25;
  1913. - 
  1914. -     ERR_IF1(!PutShape(layerPtr, &dummy, &box, &noTranslate));
  1915. -     return TRUE;
  1916. - }
  1917. - 
  1918. - static boolean
  1919.   MkLabel(facetPtr, name)
  1920.   octObject *facetPtr;
  1921.   char *name;
  1922. --- 216,221 ----
  1923. ***************
  1924. *** 380,391 ****
  1925.       if (ohGetOrCreateLayer(iconFacetPtr, &iconBackgrLayer, "iconBackground")
  1926.       == OCT_OK) {
  1927.       ERR_IF1(!MkBox(&iconBackgrLayer, size));
  1928. - /* Not making shadows for galaxies
  1929. -     if (ohGetOrCreateLayer(iconFacetPtr, &iconShadowLayer, "iconShadow")
  1930. -         == OCT_OK) {
  1931. -         ERR_IF1(!MkShadow(&iconShadowLayer, size));
  1932. -     }
  1933. - */
  1934.       }
  1935.       CK_OCT(ohCreateOrModifyPropStr(iconFacetPtr, &prop, "galaxy", ""));
  1936.       CK_OCT(octFlushFacet(iconFacetPtr));
  1937. --- 357,362 ----
  1938. *** ./src/pigilib/mkTerm.c    Wed Nov 25 21:26:31 1992
  1939. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/mkTerm.c    Mon Apr 12 17:50:35 1993
  1940. ***************
  1941. *** 1,6 ****
  1942.   /* mkTerm.c  edg
  1943.   Version identification:
  1944. ! @(#)mkTerm.c    1.9    11/25/92
  1945.   Functions that create terminals and thier symbols in a icon facet.
  1946.   Functions here use err.c for error handling.
  1947.   */
  1948. --- 1,6 ----
  1949.   /* mkTerm.c  edg
  1950.   Version identification:
  1951. ! @(#)mkTerm.c    1.10    1/19/93
  1952.   Functions that create terminals and thier symbols in a icon facet.
  1953.   Functions here use err.c for error handling.
  1954.   */
  1955. ***************
  1956. *** 31,38 ****
  1957.   */
  1958.   
  1959.   /* Includes */
  1960. - #include <stdio.h>
  1961.   #include "local.h"
  1962.   #include "rpc.h"
  1963.   #include "err.h"
  1964.   #include "octMacros.h"
  1965. --- 31,38 ----
  1966.   */
  1967.   
  1968.   /* Includes */
  1969.   #include "local.h"
  1970. + #include <stdio.h>
  1971.   #include "rpc.h"
  1972.   #include "err.h"
  1973.   #include "octMacros.h"
  1974. *** ./src/pigilib/octIfc.c    Wed Nov 25 21:26:38 1992
  1975. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/octIfc.c    Mon Apr 12 17:50:36 1993
  1976. ***************
  1977. *** 24,38 ****
  1978.   */
  1979.   /*  octIfc.c  edg
  1980.   Version identification:
  1981. ! @(#)octIfc.c    1.22    11/25/92
  1982.   Useful higher level OCT interface functions.
  1983.   */
  1984.   
  1985.   /* Includes */
  1986.   #include <stdio.h>
  1987.   #include <strings.h>
  1988.   #include <ctype.h>
  1989. - #include "local.h"
  1990.   #include "rpc.h"
  1991.   #include "paramStructs.h"
  1992.   #include "err.h"
  1993. --- 24,38 ----
  1994.   */
  1995.   /*  octIfc.c  edg
  1996.   Version identification:
  1997. ! @(#)octIfc.c    1.23    1/19/93
  1998.   Useful higher level OCT interface functions.
  1999.   */
  2000.   
  2001.   /* Includes */
  2002. + #include "local.h"
  2003.   #include <stdio.h>
  2004.   #include <strings.h>
  2005.   #include <ctype.h>
  2006.   #include "rpc.h"
  2007.   #include "paramStructs.h"
  2008.   #include "err.h"
  2009. ***************
  2010. *** 44,49 ****
  2011. --- 44,51 ----
  2012.   #include "oct.h"
  2013.   #include "mkTerm.h"
  2014.   
  2015. + static boolean SetParamProp();
  2016. + 
  2017.   /* 8/14/89
  2018.   Opens the master of an instance, but allows you to choose which facet.
  2019.   */
  2020. ***************
  2021. *** 282,287 ****
  2022. --- 284,290 ----
  2023.       return SetParamProp(instPtr,pListPtr,"params");
  2024.   }
  2025.   
  2026. + boolean
  2027.   SetTargetParams(instPtr, pListPtr)
  2028.   octObject *instPtr;
  2029.   ParamListType *pListPtr;
  2030. ***************
  2031. *** 533,538 ****
  2032. --- 536,542 ----
  2033.   /* get delay, buswidth, or some other property as a string using
  2034.    * Stringize -- empty string and return of false if not set.
  2035.    */
  2036. + boolean
  2037.   GetStringizedProp(objPtr, name, dest, dlen)
  2038.   octObject *objPtr;
  2039.   char *name, *dest;
  2040. *** ./src/pigilib/options.c    Wed Nov 25 21:26:45 1992
  2041. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/options.c    Mon Apr 12 17:50:37 1993
  2042. ***************
  2043. *** 24,35 ****
  2044.   */
  2045.   /*  options.c  edg
  2046.   Version identification:
  2047. ! @(#)options.c    1.4    11/25/92
  2048.   */
  2049.   
  2050.   /* Includes */
  2051. - #include <stdio.h>
  2052.   #include "local.h"
  2053.   #include "rpc.h"
  2054.   #include "vemInterface.h"
  2055.   #include "edit.h"
  2056. --- 24,35 ----
  2057.   */
  2058.   /*  options.c  edg
  2059.   Version identification:
  2060. ! @(#)options.c    1.5    1/19/93
  2061.   */
  2062.   
  2063.   /* Includes */
  2064.   #include "local.h"
  2065. + #include <stdio.h>
  2066.   #include "rpc.h"
  2067.   #include "vemInterface.h"
  2068.   #include "edit.h"
  2069. *** ./src/pigilib/palette.c    Wed Nov 25 21:26:50 1992
  2070. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/palette.c    Mon Apr 12 17:50:37 1993
  2071. ***************
  2072. *** 1,6 ****
  2073.   /* palette.c  edg
  2074.   Version identification:
  2075. ! @(#)palette.c    1.5    11/25/92
  2076.   Make palette of icons.
  2077.   These routines should be in octIfc.c maybe, since it enforces policy.
  2078.   */
  2079. --- 1,6 ----
  2080.   /* palette.c  edg
  2081.   Version identification:
  2082. ! @(#)palette.c    1.6    1/19/93
  2083.   Make palette of icons.
  2084.   These routines should be in octIfc.c maybe, since it enforces policy.
  2085.   */
  2086. ***************
  2087. *** 31,38 ****
  2088.   */
  2089.   
  2090.   /* Includes */
  2091. - #include <stdio.h>
  2092.   #include "local.h"
  2093.   #include "rpc.h"
  2094.   #include "oh.h"
  2095.   #include "octMacros.h"
  2096. --- 31,38 ----
  2097.   */
  2098.   
  2099.   /* Includes */
  2100.   #include "local.h"
  2101. + #include <stdio.h>
  2102.   #include "rpc.h"
  2103.   #include "oh.h"
  2104.   #include "octMacros.h"
  2105. ***************
  2106. *** 115,122 ****
  2107.   
  2108.       octGenerator genInst;
  2109.       struct octPoint cursorPt;
  2110. !     octObject bb;
  2111. !     char *techDir, buf[FILENAME_MAX], *cell;
  2112.   
  2113.       octInitGenContents(palFacetPtr, OCT_INSTANCE_MASK, &genInst);
  2114.       while (octGenerate(&genInst, cursorPtr) == OCT_OK) {
  2115. --- 115,122 ----
  2116.   
  2117.       octGenerator genInst;
  2118.       struct octPoint cursorPt;
  2119. !     octBox bb;
  2120. !     char *techDir, buf[MAXPATHLEN], *cell;
  2121.   
  2122.       octInitGenContents(palFacetPtr, OCT_INSTANCE_MASK, &genInst);
  2123.       while (octGenerate(&genInst, cursorPtr) == OCT_OK) {
  2124. ***************
  2125. *** 135,142 ****
  2126.       /* Locates cursor at an even (100 octUnits) point below the
  2127.           lowerLeft corner of current bounding box.
  2128.       */
  2129. !     cursorPt.x = AlignFunction(bb.contents.box.lowerLeft.x + 50);
  2130. !     cursorPt.y = -AlignFunction(-bb.contents.box.lowerLeft.y + 75);
  2131.       } else {
  2132.       cursorPt = defaultCursorPt;
  2133.       }
  2134. --- 135,142 ----
  2135.       /* Locates cursor at an even (100 octUnits) point below the
  2136.           lowerLeft corner of current bounding box.
  2137.       */
  2138. !     cursorPt.x = AlignFunction(bb.lowerLeft.x + 50);
  2139. !     cursorPt.y = -AlignFunction(-bb.lowerLeft.y + 75);
  2140.       } else {
  2141.       cursorPt = defaultCursorPt;
  2142.       }
  2143. *** ./src/pigilib/paramStructs.c    Wed Nov 25 21:26:55 1992
  2144. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/paramStructs.c    Mon Apr 12 17:50:37 1993
  2145. ***************
  2146. *** 24,30 ****
  2147.   */
  2148.   /* paramStructs.c  edg
  2149.   Version identification:
  2150. ! @(#)paramStructs.c    1.6    11/25/92
  2151.   This file contains functions that manage param data structures.
  2152.   ParamList and param string conversion functions.
  2153.   Caveats: Need to be able to free allocated memory in ParamListType.
  2154. --- 24,30 ----
  2155.   */
  2156.   /* paramStructs.c  edg
  2157.   Version identification:
  2158. ! @(#)paramStructs.c    1.7    1/19/93
  2159.   This file contains functions that manage param data structures.
  2160.   ParamList and param string conversion functions.
  2161.   Caveats: Need to be able to free allocated memory in ParamListType.
  2162. ***************
  2163. *** 35,43 ****
  2164.   
  2165.   
  2166.   /* Includes */
  2167.   #include <stdio.h>
  2168.   #include <strings.h>
  2169. - #include "local.h"
  2170.   #include "util.h"
  2171.   #include "err.h"
  2172.   #include "paramStructs.h"
  2173. --- 35,43 ----
  2174.   
  2175.   
  2176.   /* Includes */
  2177. + #include "local.h"
  2178.   #include <stdio.h>
  2179.   #include <strings.h>
  2180.   #include "util.h"
  2181.   #include "err.h"
  2182.   #include "paramStructs.h"
  2183. *** ./src/pigilib/util.c    Wed Nov 25 21:27:01 1992
  2184. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/util.c    Mon Apr 12 17:50:38 1993
  2185. ***************
  2186. *** 24,39 ****
  2187.   */
  2188.   /* util.c  edg
  2189.   Version identification:
  2190. ! @(#)util.c    1.9    11/25/92
  2191.   Utility functions.
  2192.   */
  2193.   
  2194.   /* Includes */
  2195.   #include <stdio.h>
  2196.   #include <strings.h>
  2197.   #include <pwd.h>
  2198.   #include <search.h>
  2199. - #include "local.h"
  2200.   #include "err.h"
  2201.   #include "util.h"
  2202.   #include "rpc.h"
  2203. --- 24,39 ----
  2204.   */
  2205.   /* util.c  edg
  2206.   Version identification:
  2207. ! @(#)util.c    1.10    1/19/93
  2208.   Utility functions.
  2209.   */
  2210.   
  2211.   /* Includes */
  2212. + #include "local.h"
  2213.   #include <stdio.h>
  2214.   #include <strings.h>
  2215.   #include <pwd.h>
  2216.   #include <search.h>
  2217.   #include "err.h"
  2218.   #include "util.h"
  2219.   #include "rpc.h"
  2220. ***************
  2221. *** 55,62 ****
  2222.   char **outPtr;
  2223.   int bytes;
  2224.   {
  2225. -     extern char *malloc();
  2226. - 
  2227.       ERR_IF2((*outPtr = (char *) malloc(bytes)) == NULL, 
  2228.       "UMalloc: malloc() failed");
  2229.       return(TRUE);
  2230. --- 55,60 ----
  2231. ***************
  2232. *** 75,82 ****
  2233.   StrDup(outPtr, in)
  2234.   char **outPtr, *in;
  2235.   {
  2236. -     extern char *malloc();
  2237. - 
  2238.       ERR_IF2((*outPtr = (char *) malloc(strlen(in) + 1)) == NULL, 
  2239.       "StrDup: malloc() failed");
  2240.       (void) strcpy(*outPtr, in);
  2241. --- 73,78 ----
  2242. ***************
  2243. *** 94,99 ****
  2244. --- 90,96 ----
  2245.       return(strcpy((char *) calloc(strlen(string)+1, sizeof(char)), string));
  2246.   }
  2247.   
  2248. + extern char* KcExpandPathName();
  2249.   
  2250.   /*
  2251.   Use the ptolemy kernel expansion call -- kennard
  2252. ***************
  2253. *** 275,280 ****
  2254. --- 272,278 ----
  2255.   DupSheet *ds;
  2256.   {
  2257.       *ds = NULL;
  2258. +     return TRUE;
  2259.   }
  2260.   
  2261.   boolean
  2262. *** ./src/pigilib/vemInterface.c    Wed Nov 25 21:27:15 1992
  2263. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigilib/vemInterface.c    Mon Apr 12 17:50:39 1993
  2264. ***************
  2265. *** 24,37 ****
  2266.   */
  2267.   /* vemInterface.c  edg
  2268.   Version identification:
  2269. ! @(#)vemInterface.c    1.8    11/25/92
  2270.   Functions that interface C to VEM
  2271.   Note: all print functions append \n to string before printing.
  2272.   */
  2273.   
  2274.   /* Includes */
  2275. - #include <stdio.h>
  2276.   #include "local.h"
  2277.   #include "rpc.h"
  2278.   #include "err.h"
  2279.   #include "octMacros.h"
  2280. --- 24,37 ----
  2281.   */
  2282.   /* vemInterface.c  edg
  2283.   Version identification:
  2284. ! @(#)vemInterface.c    1.9    1/19/93
  2285.   Functions that interface C to VEM
  2286.   Note: all print functions append \n to string before printing.
  2287.   */
  2288.   
  2289.   /* Includes */
  2290.   #include "local.h"
  2291. + #include <stdio.h>
  2292.   #include "rpc.h"
  2293.   #include "err.h"
  2294.   #include "octMacros.h"
  2295. *** ./src/libgantt/draw.c    Wed Nov 25 20:46:54 1992
  2296. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/libgantt/draw.c    Mon Apr 12 17:51:16 1993
  2297. ***************
  2298. *** 1,6 ****
  2299.   /**************************************************************************
  2300.   Version identification:
  2301. ! @(#)draw.c    2.3    11/25/92
  2302.   
  2303.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2304.   All rights reserved.
  2305. --- 1,6 ----
  2306.   /**************************************************************************
  2307.   Version identification:
  2308. ! @(#)draw.c    2.4    1/19/93
  2309.   
  2310.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2311.   All rights reserved.
  2312. ***************
  2313. *** 31,37 ****
  2314.   
  2315.   **************************************************************************/
  2316.   #ifndef lint
  2317. ! static char sccsid[] = "@(#)draw.c    2.3    11/25/92";
  2318.   #endif /* not lint */
  2319.   
  2320.   #include <stdio.h>
  2321. --- 31,37 ----
  2322.   
  2323.   **************************************************************************/
  2324.   #ifndef lint
  2325. ! static char sccsid[] = "@(#)draw.c    2.4    1/19/93";
  2326.   #endif /* not lint */
  2327.   
  2328.   #include <stdio.h>
  2329. ***************
  2330. *** 270,275 ****
  2331. --- 270,276 ----
  2332.   register int proc;
  2333.   {
  2334.       register struct star *star;
  2335. +     extern GC w_gc_box;
  2336.   
  2337.       current_gc = w_gc_box;
  2338.       if (depth>1)
  2339. ***************
  2340. *** 373,379 ****
  2341.       extern XFontStruct *w_prompt_fontinfo,
  2342.           *w_100plus_fontinfo,
  2343.           *w_stat_fontinfo;
  2344. !     extern GC w_gc_100plus, w_gc_prompt;
  2345.   
  2346.   
  2347.       XClearWindow(display, w);
  2348. --- 374,380 ----
  2349.       extern XFontStruct *w_prompt_fontinfo,
  2350.           *w_100plus_fontinfo,
  2351.           *w_stat_fontinfo;
  2352. !     extern GC w_gc_100plus, w_gc_prompt, w_gc_stat;
  2353.   
  2354.   
  2355.       XClearWindow(display, w);
  2356. *** ./src/libgantt/read_sched.c    Wed Nov 25 20:47:16 1992
  2357. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/libgantt/read_sched.c    Mon Apr 12 17:51:17 1993
  2358. ***************
  2359. *** 1,6 ****
  2360.   /**************************************************************************
  2361.   Version identification:
  2362. ! @(#)read_sched.c    2.3    11/25/92
  2363.   
  2364.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2365.   All rights reserved.
  2366. --- 1,6 ----
  2367.   /**************************************************************************
  2368.   Version identification:
  2369. ! @(#)read_sched.c    2.4    1/22/93
  2370.   
  2371.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2372.   All rights reserved.
  2373. ***************
  2374. *** 31,37 ****
  2375.   
  2376.   **************************************************************************/
  2377.   #ifndef lint
  2378. ! static char sccsid[] = "@(#)read_sched.c    2.3    11/25/92";
  2379.   #endif /* not lint */
  2380.   
  2381.   #include <stdio.h>
  2382. --- 31,37 ----
  2383.   
  2384.   **************************************************************************/
  2385.   #ifndef lint
  2386. ! static char sccsid[] = "@(#)read_sched.c    2.4    1/22/93";
  2387.   #endif /* not lint */
  2388.   
  2389.   #include <stdio.h>
  2390. ***************
  2391. *** 88,98 ****
  2392.         star_list_head = new_star; \
  2393.         no_nodes++
  2394.   
  2395.   
  2396.   #define read_stat(name,type,var,msg) \
  2397.   if (fscanf(inp,"%s",buff)!=1) read_err(msg); \
  2398.   if (strcmp(buff,name)!=0) read_err(msg); \
  2399. ! if (fscanf(inp,"%type",&var)!=1) read_err(msg)
  2400.   
  2401.   
  2402.   
  2403. --- 88,103 ----
  2404.         star_list_head = new_star; \
  2405.         no_nodes++
  2406.   
  2407. + /* name is string to look for
  2408. +    type is a format string to read one value, e.g. "%d"
  2409. +    var is a variable to read into
  2410. +    msg is an error message.
  2411. +  */
  2412.   
  2413.   #define read_stat(name,type,var,msg) \
  2414.   if (fscanf(inp,"%s",buff)!=1) read_err(msg); \
  2415.   if (strcmp(buff,name)!=0) read_err(msg); \
  2416. ! if (fscanf(inp,type,&var)!=1) read_err(msg)
  2417.   
  2418.   
  2419.   
  2420. ***************
  2421. *** 143,149 ****
  2422.   
  2423.       /* read number of processors */
  2424.   
  2425. !     read_stat("no_processors",d,no_procs,"displaysched: couldn't read number of processors");
  2426.   #if DEBUG
  2427.       printf("Number of processors read by read_sched = %d\n", no_procs);
  2428.   #endif
  2429. --- 148,155 ----
  2430.   
  2431.       /* read number of processors */
  2432.   
  2433. !     read_stat("no_processors","%d",no_procs,
  2434. !           "displaysched: couldn't read number of processors");
  2435.   #if DEBUG
  2436.       printf("Number of processors read by read_sched = %d\n", no_procs);
  2437.   #endif
  2438. ***************
  2439. *** 151,157 ****
  2440.   
  2441.       /* read the maximum end time (period of the schedule) */
  2442.   
  2443. !     read_stat("period",d,max_end_time,"displaysched: couldn't read schedule period");
  2444.       if (max_end_time <= 0) read_err("displaysched: Bad schedule period\n");
  2445.   
  2446.       /* allocate processor table */
  2447. --- 157,164 ----
  2448.   
  2449.       /* read the maximum end time (period of the schedule) */
  2450.   
  2451. !     read_stat("period","%d",max_end_time,
  2452. !           "displaysched: couldn't read schedule period");
  2453.       if (max_end_time <= 0) read_err("displaysched: Bad schedule period\n");
  2454.   
  2455.       /* allocate processor table */
  2456. ***************
  2457. *** 255,264 ****
  2458.   
  2459.       /* read in the summary statistics of the schedule */
  2460.   
  2461. !     read_stat("min",d,min,"displaysched: could not read MIN");
  2462. !     read_stat("percentage",lf,percentage,"displaysched: could not read PERCENTAGE");
  2463. !     read_stat("optimum",lf,optimum,"displaysched: could not read OPTIMUM");
  2464. !     read_stat("runtime",d,runtime,"displaysched: could not read RUNTIME");
  2465.   
  2466.       /* try to open the display */
  2467.   
  2468. --- 262,274 ----
  2469.   
  2470.       /* read in the summary statistics of the schedule */
  2471.   
  2472. !     read_stat("min","%d",min,"displaysched: could not read MIN");
  2473. !     read_stat("percentage","%lf",percentage,
  2474. !           "displaysched: could not read PERCENTAGE");
  2475. !     read_stat("optimum","%lf",optimum,
  2476. !           "displaysched: could not read OPTIMUM");
  2477. !     read_stat("runtime","%d",runtime,
  2478. !           "displaysched: could not read RUNTIME");
  2479.   
  2480.       /* try to open the display */
  2481.   
  2482. *** ./src/pigiRpc/makefile    Sat Dec 12 11:30:42 1992
  2483. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/pigiRpc/makefile    Mon Apr 12 11:37:54 1993
  2484. ***************
  2485. *** 42,48 ****
  2486.   LIBFILES = $(STAR_LIBFILES) \
  2487.       $(LIBDIR)/libpigi.a $(LIBDIR)/libptolemy.a $(LIBDIR)/libgantt.a
  2488.   
  2489. ! VERSION=0.4
  2490.   
  2491.   ALLSTARS = $(SDFSTARS) $(CGCSTARS) $(CG96STARS) $(CG56STARS) $(CGSTARS) \
  2492.       $(DDFSTARS) $(CGDDFSTARS) $(THORSTARS) $(DESTARS)
  2493. --- 42,48 ----
  2494.   LIBFILES = $(STAR_LIBFILES) \
  2495.       $(LIBDIR)/libpigi.a $(LIBDIR)/libptolemy.a $(LIBDIR)/libgantt.a
  2496.   
  2497. ! VERSION=0.4.1
  2498.   
  2499.   ALLSTARS = $(SDFSTARS) $(CGCSTARS) $(CG96STARS) $(CG56STARS) $(CGSTARS) \
  2500.       $(DDFSTARS) $(CGDDFSTARS) $(THORSTARS) $(DESTARS)
  2501. *** ./src/ptlang/makefile    Tue Nov 24 12:48:38 1992
  2502. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/ptlang/makefile    Wed Apr 14 13:44:20 1993
  2503. ***************
  2504. *** 1,6 ****
  2505.   # Makefile for ptolemy language processor
  2506.   # Version identification:
  2507. ! # @(#)makefile    2.8    11/24/92
  2508.   # Copyright (c) 1990 The Regents of the University of California.
  2509.   #                       All Rights Reserved.
  2510.   
  2511. --- 1,6 ----
  2512.   # Makefile for ptolemy language processor
  2513.   # Version identification:
  2514. ! # @(#)makefile    2.9    4/14/93
  2515.   # Copyright (c) 1990 The Regents of the University of California.
  2516.   #                       All Rights Reserved.
  2517.   
  2518. ***************
  2519. *** 16,22 ****
  2520.   
  2521.   ptlang:    ptlang.o
  2522.       rm -f ptlang
  2523. !     cc ptlang.o -o ptlang
  2524.   
  2525.   ptlang.o:    ptlang.c
  2526.   
  2527. --- 16,22 ----
  2528.   
  2529.   ptlang:    ptlang.o
  2530.       rm -f ptlang
  2531. !     $(CC) ptlang.o -o ptlang
  2532.   
  2533.   ptlang.o:    ptlang.c
  2534.   
  2535. *** ./src/domains/sdf/kernel/SDFWormhole.h    Wed Nov 25 20:49:59 1992
  2536. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/kernel/SDFWormhole.h    Mon Apr 12 17:51:42 1993
  2537. ***************
  2538. *** 12,18 ****
  2539.   
  2540.   /*******************************************************************
  2541.    SCCS Version identification :
  2542. !  @(#)SDFWormhole.h    2.11        11/25/92
  2543.   
  2544.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2545.   All rights reserved.
  2546. --- 12,18 ----
  2547.   
  2548.   /*******************************************************************
  2549.    SCCS Version identification :
  2550. !  @(#)SDFWormhole.h    2.12        3/16/93
  2551.   
  2552.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2553.   All rights reserved.
  2554. ***************
  2555. *** 78,86 ****
  2556.       // return my scheduler
  2557.       Scheduler* scheduler() const { return target->scheduler();}
  2558.   
  2559. !     // print methods
  2560. !     StringList printVerbose() const;
  2561. !     StringList printRecursive() const;
  2562.   
  2563.       // clone -- allows interpreter/pigi to make copies
  2564.       Block* clone() const;
  2565. --- 78,85 ----
  2566.       // return my scheduler
  2567.       Scheduler* scheduler() const { return target->scheduler();}
  2568.   
  2569. !     // print method
  2570. !     StringList print(int verbose) const { return Wormhole::print(verbose);}
  2571.   
  2572.       // clone -- allows interpreter/pigi to make copies
  2573.       Block* clone() const;
  2574. *** ./src/domains/sdf/kernel/SDFWormhole.cc    Wed Nov 25 20:49:29 1992
  2575. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/kernel/SDFWormhole.cc    Mon Apr 12 17:51:42 1993
  2576. ***************
  2577. *** 1,7 ****
  2578.   static const char file_id[] = "SDFWormhole.cc";
  2579.   /******************************************************************
  2580.   Version identification:
  2581. !  @(#)SDFWormhole.cc    2.12        11/25/92
  2582.   
  2583.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2584.   All rights reserved.
  2585. --- 1,7 ----
  2586.   static const char file_id[] = "SDFWormhole.cc";
  2587.   /******************************************************************
  2588.   Version identification:
  2589. !  @(#)SDFWormhole.cc    2.13    3/16/93
  2590.   
  2591.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2592.   All rights reserved.
  2593. ***************
  2594. *** 93,107 ****
  2595.   {
  2596.       buildEventHorizons ();
  2597.   }
  2598. - 
  2599. - StringList SDFWormhole :: printVerbose() const {
  2600. -     return Wormhole :: print(0);
  2601. - }
  2602. - 
  2603. - StringList SDFWormhole :: printRecursive() const {
  2604. -     return Wormhole :: print(1);
  2605. - }
  2606. - 
  2607.   
  2608.   // cloner -- clone the inside and make a new wormhole from that.
  2609.   Block* SDFWormhole :: clone() const {
  2610. --- 93,98 ----
  2611. *** ./src/domains/sdf/kernel/SDFCluster.h    Mon Nov 30 19:33:17 1992
  2612. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/kernel/SDFCluster.h    Tue Apr 13 11:11:16 1993
  2613. ***************
  2614. *** 3,9 ****
  2615.   
  2616.   /**************************************************************************
  2617.   Version identification:
  2618. ! @(#)SDFCluster.h    1.19    11/30/92
  2619.   
  2620.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2621.   All rights reserved.
  2622. --- 3,9 ----
  2623.   
  2624.   /**************************************************************************
  2625.   Version identification:
  2626. ! @(#)SDFCluster.h    1.20    1/18/93
  2627.   
  2628.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2629.   All rights reserved.
  2630. ***************
  2631. *** 162,167 ****
  2632. --- 162,170 ----
  2633.       // generate code using target methods
  2634.       virtual void genCode(Target&, int depth) = 0;
  2635.   
  2636. +     // hook for doing simulated execution of the real stars.
  2637. +     virtual void simRunRealStars() = 0;
  2638. + 
  2639.       // run/go
  2640.       int run() = 0;
  2641.       void go() { run();}
  2642. ***************
  2643. *** 214,222 ****
  2644.   
  2645.       // optionally do additional clustering on internal cluster
  2646.       virtual int internalClustering() { return FALSE;}
  2647. - 
  2648. -     // hook for doing simulated execution of the real stars.
  2649. -     virtual void simRunRealStars() = 0;
  2650.   
  2651.       // print me
  2652.       virtual ostream& printOn(ostream&) = 0;
  2653. --- 217,222 ----
  2654. *** ./src/domains/sdf/loopScheduler/LSCluster.cc    Wed Nov 25 21:15:12 1992
  2655. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/loopScheduler/LSCluster.cc    Mon Apr 12 17:53:27 1993
  2656. ***************
  2657. *** 1,7 ****
  2658.   static const char file_id[] = "LSCluster.cc";
  2659.   /******************************************************************
  2660.   Version identification:
  2661. ! @(#)LSCluster.cc    1.9    11/25/92
  2662.   
  2663.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2664.   All rights reserved.
  2665. --- 1,7 ----
  2666.   static const char file_id[] = "LSCluster.cc";
  2667.   /******************************************************************
  2668.   Version identification:
  2669. ! @(#)LSCluster.cc    1.10    1/18/93
  2670.   
  2671.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2672.   All rights reserved.
  2673. ***************
  2674. *** 134,140 ****
  2675.       
  2676.   static const int FORCE = 2;
  2677.   // simulate the execution of the cluster
  2678. ! int LSCluster :: simRunStar(int) {
  2679.   
  2680.       SDFFiring* f = firing;
  2681.       while (f) {
  2682. --- 134,140 ----
  2683.       
  2684.   static const int FORCE = 2;
  2685.   // simulate the execution of the cluster
  2686. ! void LSCluster :: simRunRealStars() {
  2687.   
  2688.       SDFFiring* f = firing;
  2689.       while (f) {
  2690. ***************
  2691. *** 143,149 ****
  2692.           }
  2693.           f = f->next;
  2694.       }
  2695. -     return 0;
  2696.   }
  2697.   
  2698.   // indent by depth tabs.
  2699. --- 143,148 ----
  2700. *** ./src/domains/sdf/loopScheduler/LSCluster.h    Wed Nov 25 21:15:11 1992
  2701. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/loopScheduler/LSCluster.h    Mon Apr 12 17:53:28 1993
  2702. ***************
  2703. *** 1,6 ****
  2704.   /******************************************************************
  2705.   Version identification:
  2706. ! @(#)LSCluster.h    1.10    11/25/92
  2707.   
  2708.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2709.   All rights reserved.
  2710. --- 1,6 ----
  2711.   /******************************************************************
  2712.   Version identification:
  2713. ! @(#)LSCluster.h    1.11    1/18/93
  2714.   
  2715.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2716.   All rights reserved.
  2717. ***************
  2718. *** 88,94 ****
  2719.       // simulate execution for schedule generation.  We also
  2720.       // call simRunStar on the "real" star, so info like the
  2721.       // maximum # of tokens on each arc will get set right.
  2722. !     int simRunStar(int deferFiring);
  2723.   
  2724.   private:
  2725.       SDFFiring* firing;    // local schedule
  2726. --- 88,94 ----
  2727.       // simulate execution for schedule generation.  We also
  2728.       // call simRunStar on the "real" star, so info like the
  2729.       // maximum # of tokens on each arc will get set right.
  2730. !     void simRunRealStars();
  2731.   
  2732.   private:
  2733.       SDFFiring* firing;    // local schedule
  2734. *** ./src/domains/sdf/loopScheduler/makefile    Fri Oct 23 13:30:26 1992
  2735. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/loopScheduler/makefile    Mon Apr 12 17:53:28 1993
  2736. ***************
  2737. *** 90,96 ****
  2738.     DecomGal.h DecomScheduler.h LSGraph.h ../../../../src/domains/sdf/expgraph/ExpandedGraph.h \
  2739.     ../../../../src/domains/sdf/expgraph/EGNode.h ../../../../src/kernel/DoubleLink.h \
  2740.     ../../../../src/domains/sdf/expgraph/EGGate.h ReachabilityMatrix.h LSNode.h \
  2741. !   LSCluster.h ../../../../src/kernel/Target.h ../../../../src/kernel/streamCompat.h 
  2742.   MergeList.o : MergeList.cc MergeList.h ../../../../src/kernel/DoubleLink.h ../../../../src/kernel/type.h \
  2743.     ../../../../src/kernel/logNew.h LSNode.h ../../../../src/domains/sdf/expgraph/EGNode.h \
  2744.     ../../../../src/domains/sdf/kernel/SDFStar.h ../../../../src/kernel/Star.h ../../../../src/kernel/Block.h \
  2745. --- 90,96 ----
  2746.     DecomGal.h DecomScheduler.h LSGraph.h ../../../../src/domains/sdf/expgraph/ExpandedGraph.h \
  2747.     ../../../../src/domains/sdf/expgraph/EGNode.h ../../../../src/kernel/DoubleLink.h \
  2748.     ../../../../src/domains/sdf/expgraph/EGGate.h ReachabilityMatrix.h LSNode.h \
  2749. !   LSCluster.h ../../../../src/kernel/Target.h ../../../../src/kernel/pt_fstream.h 
  2750.   MergeList.o : MergeList.cc MergeList.h ../../../../src/kernel/DoubleLink.h ../../../../src/kernel/type.h \
  2751.     ../../../../src/kernel/logNew.h LSNode.h ../../../../src/domains/sdf/expgraph/EGNode.h \
  2752.     ../../../../src/domains/sdf/kernel/SDFStar.h ../../../../src/kernel/Star.h ../../../../src/kernel/Block.h \
  2753. *** ./src/domains/sdf/stars/SDFPrinter.pl    Tue Dec  8 15:01:59 1992
  2754. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/sdf/stars/SDFPrinter.pl    Mon Apr 12 17:52:10 1993
  2755. ***************
  2756. *** 2,13 ****
  2757.       name { Printer }
  2758.       domain { SDF }
  2759.       desc {
  2760. ! Prints out one sample from each input port per line
  2761. ! If "fileName" is not equal to "<stdout>" (the default), it
  2762. ! specifies the filename to write to.  <stderr> prints on the
  2763. ! standard error stream.
  2764.       }
  2765. !     version {@(#)SDFPrinter.pl    2.11 12/8/92}
  2766.       author { D. G. Messerschmitt and J. Buck }
  2767.       copyright {
  2768.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2769. --- 2,13 ----
  2770.       name { Printer }
  2771.       domain { SDF }
  2772.       desc {
  2773. ! Prints out one sample from each input port per line.  The "fileName"
  2774. ! state specifies the file to be written; the special names <stdout>
  2775. ! and <cout> (specifying the standard output stream), and <stderr> and <cerr>
  2776. ! specifying the standard error stream, are also supported.
  2777.       }
  2778. !     version {@(#)SDFPrinter.pl    2.12 3/30/93}
  2779.       author { D. G. Messerschmitt and J. Buck }
  2780.       copyright {
  2781.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2782. ***************
  2783. *** 20,25 ****
  2784. --- 20,29 ----
  2785.   This star prints its input, which may be any supported type.
  2786.   There may be multiple inputs: all inputs are printed together on
  2787.   the same line, separated by tabs.
  2788. + .pp
  2789. + If output is directed to a file, flushing does not occur until the
  2790. + wrapup method is called.  Before the first data are flushed, the file
  2791. + will not even exist.  This is normal.
  2792.       }
  2793.       inmulti {
  2794.           name { input }
  2795. ***************
  2796. *** 33,49 ****
  2797.       }
  2798.       hinclude { "pt_fstream.h" }
  2799.       protected {
  2800. !         pt_ofstream output;
  2801.       }
  2802.       wrapup {
  2803. !         output.close();
  2804.       }
  2805.       setup {
  2806. !         // abortRun is called on open failure
  2807. !         output.open(fileName);
  2808.       }
  2809. - 
  2810.       go {
  2811.           MPHIter nexti(input);
  2812.           PortHole* p;
  2813.           while ((p = nexti++) != 0)
  2814. --- 37,57 ----
  2815.       }
  2816.       hinclude { "pt_fstream.h" }
  2817.       protected {
  2818. !         pt_ofstream *p_out;
  2819.       }
  2820. +     constructor { p_out = 0;}
  2821. +     destructor { LOG_DEL; delete p_out;}
  2822.       wrapup {
  2823. !         LOG_DEL; delete p_out;
  2824. !         p_out = 0;
  2825.       }
  2826.       setup {
  2827. !         // in case file was open from previous run w/o wrapup call
  2828. !         LOG_DEL; delete p_out;
  2829. !         LOG_NEW; p_out = new pt_ofstream(fileName);
  2830.       }
  2831.       go {
  2832. +         pt_ofstream& output = *p_out;
  2833.           MPHIter nexti(input);
  2834.           PortHole* p;
  2835.           while ((p = nexti++) != 0)
  2836. *** ./src/domains/de/kernel/DEWormhole.cc    Wed Nov 25 20:54:50 1992
  2837. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/de/kernel/DEWormhole.cc    Mon Apr 12 17:52:38 1993
  2838. ***************
  2839. *** 1,7 ****
  2840.   static const char file_id[] = "DEWormhole.cc";
  2841.   /******************************************************************
  2842.   Version identification:
  2843. !  @(#)DEWormhole.cc    2.14        11/25/92
  2844.   
  2845.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2846.   All rights reserved.
  2847. --- 1,7 ----
  2848.   static const char file_id[] = "DEWormhole.cc";
  2849.   /******************************************************************
  2850.   Version identification:
  2851. !  @(#)DEWormhole.cc    2.16        3/16/93
  2852.   
  2853.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2854.   All rights reserved.
  2855. ***************
  2856. *** 88,93 ****
  2857. --- 88,99 ----
  2858.   LOG_NEW; return new DEWormhole(gal.clone()->asGalaxy(), target->cloneTarget());
  2859.   }
  2860.   
  2861. + // makeNew, analogous to clone.
  2862. + Block* DEWormhole :: makeNew() const
  2863. + {
  2864. + LOG_NEW; return new DEWormhole(gal.makeNew()->asGalaxy(), target->cloneTarget());
  2865. + }
  2866. + 
  2867.   // sumUp();  If the inner domain is timed and stopBeforeDeadlocked,
  2868.   // put the wormhole into the process queue.
  2869.   void DEWormhole :: sumUp() {
  2870. ***************
  2871. *** 206,214 ****
  2872.               }
  2873.   
  2874.           // send the event
  2875.           for (int k = numberTokens; k > 0; k--) {
  2876.               // 3. get the particle
  2877. !             Particle** p = myBuffer->here();
  2878.               Particle* pp = myPlasma->get();
  2879.               *pp = **p;
  2880.   
  2881. --- 212,221 ----
  2882.               }
  2883.   
  2884.           // send the event
  2885. +         myBuffer->backup(numberTokens);
  2886.           for (int k = numberTokens; k > 0; k--) {
  2887.               // 3. get the particle
  2888. !             Particle** p = myBuffer->next();
  2889.               Particle* pp = myPlasma->get();
  2890.               *pp = **p;
  2891.   
  2892. *** ./src/domains/de/kernel/DEWormhole.h    Wed Nov 25 20:55:23 1992
  2893. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/de/kernel/DEWormhole.h    Mon Apr 12 17:52:38 1993
  2894. ***************
  2895. *** 13,19 ****
  2896.   
  2897.   /*******************************************************************
  2898.    SCCS Version identification :
  2899. !  @(#)DEWormhole.h    2.12        11/25/92
  2900.   
  2901.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2902.   All rights reserved.
  2903. --- 13,19 ----
  2904.   
  2905.   /*******************************************************************
  2906.    SCCS Version identification :
  2907. !  @(#)DEWormhole.h    2.13        3/16/93
  2908.   
  2909.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2910.   All rights reserved.
  2911. ***************
  2912. *** 69,80 ****
  2913.       // return my scheduler
  2914.       Scheduler* scheduler() const { return target->scheduler();}
  2915.   
  2916. !     // print methods
  2917. !     StringList printVerbose() const { return Wormhole :: print(0);}
  2918. !     StringList printRecursive() const { return Wormhole :: print(1);}
  2919.   
  2920.       // clone -- allows interpreter to make copies
  2921.       Block* clone() const;
  2922.   
  2923.       // identify myself as a wormhole
  2924.       int isItWormhole() const { return TRUE;}
  2925. --- 69,80 ----
  2926.       // return my scheduler
  2927.       Scheduler* scheduler() const { return target->scheduler();}
  2928.   
  2929. !     // print method
  2930. !     StringList print(int verbose) const { return Wormhole::print(verbose);}
  2931.   
  2932.       // clone -- allows interpreter to make copies
  2933.       Block* clone() const;
  2934. +     Block* makeNew() const;
  2935.   
  2936.       // identify myself as a wormhole
  2937.       int isItWormhole() const { return TRUE;}
  2938. *** ./src/domains/de/stars/DEPrinter.pl    Tue Dec  8 15:01:03 1992
  2939. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/de/stars/DEPrinter.pl    Mon Apr 12 17:52:53 1993
  2940. ***************
  2941. *** 2,14 ****
  2942.       name { Printer }
  2943.       domain { DE }
  2944.       desc {
  2945. ! Prints out one sample from each input port per line
  2946. ! If "fileName" is not equal to "<stdout>" (the default), it
  2947. ! specifies the filename to write to.  <stderr> prints on the
  2948. ! standard error stream.
  2949.       }
  2950. !     version { @(#)DEPrinter.pl    2.9    12/8/92}
  2951. !     author { Soonhoi Ha }
  2952.       copyright {
  2953.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2954.   All rights reserved.
  2955. --- 2,14 ----
  2956.       name { Printer }
  2957.       domain { DE }
  2958.       desc {
  2959. ! Prints out one sample from each input port per line.  The "fileName"
  2960. ! state specifies the file to be written; the special names <stdout>
  2961. ! and <cout> (specifying the standard output stream), and <stderr> and <cerr>
  2962. ! specifying the standard error stream, are also supported.
  2963.       }
  2964. !     version { @(#)DEPrinter.pl    2.10    3/30/93}
  2965. !     author { Soonhoi Ha and J. Buck}
  2966.       copyright {
  2967.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  2968.   All rights reserved.
  2969. ***************
  2970. *** 19,24 ****
  2971. --- 19,28 ----
  2972.       explanation {
  2973.   The input may be a particle of any type.  The print() method
  2974.   of the particle is used to generate the output.
  2975. + .pp
  2976. + If output is directed to a file, flushing does not occur until the
  2977. + wrapup method is called.  Before the first data are flushed, the file
  2978. + will not even exist.  This is normal.
  2979.       }
  2980.       inmulti {
  2981.           name { input }
  2982. ***************
  2983. *** 32,45 ****
  2984.       }
  2985.       hinclude { "pt_fstream.h" }
  2986.       protected {
  2987. !         pt_ofstream output;
  2988.       }
  2989.       setup {
  2990. !         // abortRun is called on open failure
  2991. !         output.open(fileName);
  2992.       }
  2993. - 
  2994.       go {
  2995.           // detect which input has an event and print out the
  2996.           // value and arrivalTime.
  2997.           InDEMPHIter nextp(input);
  2998. --- 36,52 ----
  2999.       }
  3000.       hinclude { "pt_fstream.h" }
  3001.       protected {
  3002. !         pt_ofstream *p_out;
  3003.       }
  3004. +     constructor { p_out = 0;}
  3005. +     destructor { LOG_DEL; delete p_out;}
  3006.       setup {
  3007. !         // in case file was open from previous run w/o wrapup call
  3008. !         LOG_DEL; delete p_out;
  3009. !         LOG_NEW; p_out = new pt_ofstream(fileName);
  3010.       }
  3011.       go {
  3012. +         pt_ofstream& output = *p_out;
  3013.           // detect which input has an event and print out the
  3014.           // value and arrivalTime.
  3015.           InDEMPHIter nextp(input);
  3016. ***************
  3017. *** 54,60 ****
  3018.           }
  3019.       }
  3020.       wrapup {
  3021. !         output.close();
  3022.       }
  3023.   }
  3024.   
  3025. --- 61,68 ----
  3026.           }
  3027.       }
  3028.       wrapup {
  3029. !         LOG_DEL; delete p_out;
  3030. !         p_out = 0;
  3031.       }
  3032.   }
  3033.   
  3034. *** ./src/domains/ddf/kernel/DDFWormhole.h    Wed Nov 25 21:02:15 1992
  3035. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/ddf/kernel/DDFWormhole.h    Mon Apr 12 17:16:38 1993
  3036. ***************
  3037. *** 11,17 ****
  3038.   
  3039.   /*******************************************************************
  3040.    SCCS Version identification :
  3041. !  @(#)DDFWormhole.h    2.11    11/25/92
  3042.   
  3043.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  3044.   All rights reserved.
  3045. --- 11,17 ----
  3046.   
  3047.   /*******************************************************************
  3048.    SCCS Version identification :
  3049. !  @(#)DDFWormhole.h    2.12    3/16/93
  3050.   
  3051.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  3052.   All rights reserved.
  3053. ***************
  3054. *** 62,73 ****
  3055.   
  3056.       Scheduler* scheduler() const { return target->scheduler();}
  3057.   
  3058. !     // print methods
  3059. !     StringList printVerbose() const { return Wormhole :: print(0);}
  3060. !     StringList printRecursive() const { return Wormhole :: print(1);}
  3061.   
  3062.       // clone -- allows interpreter to make copies
  3063.       Block* clone() const;
  3064.   
  3065.       // identify myself as a wormhole
  3066.       int isItWormhole() const { return TRUE;}
  3067. --- 62,73 ----
  3068.   
  3069.       Scheduler* scheduler() const { return target->scheduler();}
  3070.   
  3071. !     // print method
  3072. !     StringList print(int verbose) const { return Wormhole::print(verbose);}
  3073.   
  3074.       // clone -- allows interpreter to make copies
  3075.       Block* clone() const;
  3076. +     Block* makeNew() const;
  3077.   
  3078.       // identify myself as a wormhole
  3079.       int isItWormhole() const { return TRUE;}
  3080. *** ./src/domains/ddf/kernel/DDFWormhole.cc    Wed Nov 25 21:01:42 1992
  3081. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/ddf/kernel/DDFWormhole.cc    Mon Apr 12 17:20:51 1993
  3082. ***************
  3083. *** 1,7 ****
  3084.   static const char file_id[] = "DDFWormhole.cc";
  3085.   /******************************************************************
  3086.   Version identification:
  3087. !  @(#)DDFWormhole.cc    2.10    11/25/92
  3088.   
  3089.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  3090.   All rights reserved.
  3091. --- 1,7 ----
  3092.   static const char file_id[] = "DDFWormhole.cc";
  3093.   /******************************************************************
  3094.   Version identification:
  3095. !  @(#)DDFWormhole.cc    2.11    3/16/93
  3096.   
  3097.   Copyright (c) 1990, 1991, 1992 The Regents of the University of California.
  3098.   All rights reserved.
  3099. ***************
  3100. *** 78,83 ****
  3101. --- 78,90 ----
  3102.   Block* DDFWormhole :: clone() const
  3103.   {
  3104.   LOG_NEW; return new DDFWormhole(gal.clone()->asGalaxy(), target->cloneTarget());
  3105. + }
  3106. + 
  3107. + // makeNew, analogous to clone.
  3108. + Block* DDFWormhole :: makeNew() const
  3109. + {
  3110. + LOG_NEW; return new DDFWormhole(gal.makeNew()->asGalaxy(),
  3111. +                 target->cloneTarget());
  3112.   }
  3113.   
  3114.   /**************************************************************************
  3115. *** ./src/domains/thor/kernel/ThorWormhole.cc    Wed Nov 25 20:52:35 1992
  3116. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/thor/kernel/ThorWormhole.cc    Mon Apr 12 17:54:08 1993
  3117. ***************
  3118. *** 28,34 ****
  3119.   ///////////////////////////////////////////////////////////////////////////
  3120.   //
  3121.   // Version identification:
  3122. ! // @(#)ThorWormhole.cc    1.13 11/25/92
  3123.   //
  3124.   // Copyright  (c) 1990    The Regents of the University of California,
  3125.   //                All Rights Reserved.
  3126. --- 28,34 ----
  3127.   ///////////////////////////////////////////////////////////////////////////
  3128.   //
  3129.   // Version identification:
  3130. ! // @(#)ThorWormhole.cc    1.14 3/16/93
  3131.   //
  3132.   // Copyright  (c) 1990    The Regents of the University of California,
  3133.   //                All Rights Reserved.
  3134. ***************
  3135. *** 74,79 ****
  3136. --- 74,86 ----
  3137.   Block* ThorWormhole :: clone() const
  3138.   {
  3139.       LOG_NEW; return new ThorWormhole(gal.clone()->asGalaxy());
  3140. + }
  3141. + 
  3142. + // makeNew, analogous to clone.
  3143. + Block* ThorWormhole :: makeNew() const
  3144. + {
  3145. + LOG_NEW; return new ThorWormhole(gal.makeNew()->asGalaxy(),
  3146. +                 target->cloneTarget());
  3147.   }
  3148.   
  3149.   // sumUp();  If the inner domain is timed and stopBeforeDeadlocked,
  3150. *** ./src/domains/thor/kernel/ThorWormhole.h    Wed Nov 25 20:53:57 1992
  3151. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/thor/kernel/ThorWormhole.h    Mon Apr 12 17:54:09 1993
  3152. ***************
  3153. *** 33,39 ****
  3154.   ///////////////////////////////////////////////////////////////////////////
  3155.   //
  3156.   // Version identification:
  3157. ! // @(#)ThorWormhole.h    1.11 11/25/92
  3158.   //
  3159.   // Copyright  (c) 1990    The Regents of the University of California,
  3160.   //                All Rights Reserved.
  3161. --- 33,39 ----
  3162.   ///////////////////////////////////////////////////////////////////////////
  3163.   //
  3164.   // Version identification:
  3165. ! // @(#)ThorWormhole.h    1.12 3/16/93
  3166.   //
  3167.   // Copyright  (c) 1990    The Regents of the University of California,
  3168.   //                All Rights Reserved.
  3169. ***************
  3170. *** 77,88 ****
  3171.        // destructor
  3172.        ~ThorWormhole() { freeContents();}
  3173.   
  3174. !      // print methods
  3175. !      StringList printVerbose() const { return Wormhole :: print(0); }
  3176. !      StringList printRecursive() const { return Wormhole :: print(1); }
  3177.   
  3178.        // clone -- allows interpreter to make copies
  3179.        Block* clone() const;
  3180.   
  3181.        // return my scheduler
  3182.        Scheduler* scheduler() const { return target->scheduler();}
  3183. --- 77,88 ----
  3184.        // destructor
  3185.        ~ThorWormhole() { freeContents();}
  3186.   
  3187. !      // print method
  3188. !      StringList print(int verbose) const { return Wormhole::print(verbose);}
  3189.   
  3190.        // clone -- allows interpreter to make copies
  3191.        Block* clone() const;
  3192. +      Block* makeNew() const;
  3193.   
  3194.        // return my scheduler
  3195.        Scheduler* scheduler() const { return target->scheduler();}
  3196. *** ./src/domains/thor/pepp/make.template    Wed Oct 28 21:49:16 1992
  3197. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/thor/pepp/make.template    Wed Apr 14 13:45:30 1993
  3198. ***************
  3199. *** 1,6 ****
  3200.   # Makefile for Thor preprocessor (pepp)
  3201.   # Version identification:
  3202. ! # @(#)make.template    1.18    10/28/92
  3203.   # Copyright (c) 1990 The Regents of the University of California.
  3204.   #                       All Rights Reserved.
  3205.   # Date of creation: 2/11/91
  3206. --- 1,6 ----
  3207.   # Makefile for Thor preprocessor (pepp)
  3208.   # Version identification:
  3209. ! # @(#)make.template    1.19    4/14/93
  3210.   # Copyright (c) 1990 The Regents of the University of California.
  3211.   #                       All Rights Reserved.
  3212.   # Date of creation: 2/11/91
  3213. ***************
  3214. *** 43,53 ****
  3215.   
  3216.   HDRS=        comdefs.h cc-strings.h pass1Syn.h
  3217.   
  3218. ! OBJS =    pass1Syn.o pass1Lex.o pass2Lex.o utils.o codefncs.o \
  3219.           cc-strings.o errmsg.o dbgmsg.o main.o
  3220.   
  3221.   EXTRA_DESTS=    comp.c comp.o pepp
  3222.   
  3223.   all:        makefile $(PROGRAM)
  3224.   
  3225.   $(PROGRAM):    $(OBJS)
  3226. --- 43,55 ----
  3227.   
  3228.   HDRS=        comdefs.h cc-strings.h pass1Syn.h
  3229.   
  3230. ! OBJS =        pass1Syn.o pass1Lex.o pass2Lex.o utils.o codefncs.o \
  3231.           cc-strings.o errmsg.o dbgmsg.o main.o
  3232.   
  3233.   EXTRA_DESTS=    comp.c comp.o pepp
  3234.   
  3235. + C_INCL =    -I$(VPATH)
  3236. + 
  3237.   all:        makefile $(PROGRAM)
  3238.   
  3239.   $(PROGRAM):    $(OBJS)
  3240. ***************
  3241. *** 85,92 ****
  3242.   install:    makefile $(BINDIR)/$(PROGRAM)
  3243.   
  3244.   $(BINDIR)/$(PROGRAM):    $(PROGRAM)
  3245. !         @echo "Installing $(PROGRAM) in directory $(BINDIR) ...";\
  3246. !          rm -f $(BINDIR)/$(PROGRAM);\
  3247.            ln $(PROGRAM) $(BINDIR)
  3248.   
  3249.   include $(ROOT)/common.mk
  3250. --- 87,93 ----
  3251.   install:    makefile $(BINDIR)/$(PROGRAM)
  3252.   
  3253.   $(BINDIR)/$(PROGRAM):    $(PROGRAM)
  3254. !          rm -f $(BINDIR)/$(PROGRAM)
  3255.            ln $(PROGRAM) $(BINDIR)
  3256.   
  3257.   include $(ROOT)/common.mk
  3258. ***************
  3259. *** 93,97 ****
  3260.   
  3261.   # Don't add anything after the next lin; makedepend will zap it.
  3262.   # DO NOT DELETE THIS LINE -- make depend depends on it.
  3263. - 
  3264. - 
  3265. --- 94,96 ----
  3266. *** ./src/domains/cg56/stars/CG56Sin.pl    Tue Dec  8 15:06:42 1992
  3267. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/domains/cg56/stars/CG56Sin.pl    Wed Apr 14 13:47:18 1993
  3268. ***************
  3269. *** 6,12 ****
  3270.   Calculation by table lookup.  Input range of (-1,1) scaled by pi.
  3271.   Output is sin(pi*input).
  3272.       }
  3273. !     version { @(#)CG56Sin.pl    1.10 12/8/92 }
  3274.       acknowledge { Gabriel version by Maureen O'Reilly }
  3275.       author { Kennard, Chih-Tsung Huang (ported from Gabriel) }
  3276.       copyright {
  3277. --- 6,12 ----
  3278.   Calculation by table lookup.  Input range of (-1,1) scaled by pi.
  3279.   Output is sin(pi*input).
  3280.       }
  3281. !     version { @(#)CG56Sin.pl    1.11 1/19/93 }
  3282.       acknowledge { Gabriel version by Maureen O'Reilly }
  3283.       author { Kennard, Chih-Tsung Huang (ported from Gabriel) }
  3284.       copyright {
  3285. ***************
  3286. *** 75,80 ****
  3287. --- 75,88 ----
  3288.           move    y:(r1),b    ; read the table
  3289.           move    b1,$ref(output)
  3290.       }
  3291. +     code {
  3292. +         // fn to round to nearest int.  Done this way because
  3293. +         // truncation of negative values to integers is machine
  3294. +         // dependent in C/C++.
  3295. +         inline int round(double x) {
  3296. +             return (x >= 0) ? int(x+0.5) : -int(0.5-x);
  3297. +         }
  3298. +     }
  3299.       setup {
  3300.           double ph = double(phase);
  3301.           if ( ph < 0 ) {
  3302. ***************
  3303. *** 84,90 ****
  3304.               int n = (int) floor(ph / 360.0);
  3305.               ph -= 360.0 * n;
  3306.           }
  3307. !         phaseOffset = (int) rint(ph/360.0*256.0);
  3308.       }
  3309.       go {
  3310.           addCode(cbPrepare);
  3311. --- 92,98 ----
  3312.               int n = (int) floor(ph / 360.0);
  3313.               ph -= 360.0 * n;
  3314.           }
  3315. !         phaseOffset = round(ph/360.0*256.0);
  3316.       }
  3317.       go {
  3318.           addCode(cbPrepare);
  3319. *** ./src/xgraph/hpgl.c    Wed Apr  8 16:06:17 1992
  3320. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/xgraph/hpgl.c    Wed Apr 14 15:41:03 1993
  3321. ***************
  3322. *** 1,3 ****
  3323. --- 1,4 ----
  3324. + /* Ptolemy version: @(#)hpgl.c    1.2 4/14/93 */
  3325.   /*
  3326.    * HPGL Output
  3327.    *
  3328. ***************
  3329. *** 8,16 ****
  3330.   #define MAPY(state,y) ( MAXY - (y) + P1Y - state->clipminY)
  3331.   
  3332.   #include "copyright.h"
  3333.   #include "xgout.h"
  3334.   #include "plotter.h"
  3335. - #include <stdio.h>
  3336.   #include <math.h>
  3337.   #define MAX(a,b) ( ((a)>(b)) ? (a) : (b) )
  3338.   #define MIN(a,b) ( ((a)<(b)) ? (a) : (b) )
  3339. --- 9,17 ----
  3340.   #define MAPY(state,y) ( MAXY - (y) + P1Y - state->clipminY)
  3341.   
  3342.   #include "copyright.h"
  3343. + #include <stdio.h>
  3344.   #include "xgout.h"
  3345.   #include "plotter.h"
  3346.   #include <math.h>
  3347.   #define MAX(a,b) ( ((a)>(b)) ? (a) : (b) )
  3348.   #define MIN(a,b) ( ((a)<(b)) ? (a) : (b) )
  3349. *** ./src/xgraph/hard_devices.h    Wed Apr  8 16:06:21 1992
  3350. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/xgraph/hard_devices.h    Wed Apr 14 16:10:27 1993
  3351. ***************
  3352. *** 21,27 ****
  3353.       char dev_axis_font[MFNAME];    /* Default name of axis font         */
  3354.       double dev_axis_size;    /* Default size of axis font (pnts)  */
  3355.       hard_dev_docu dev_docu;    /* Document predicate                */
  3356. ! };
  3357.   
  3358.   extern int hard_count;
  3359.   extern struct hard_dev hard_devices[];
  3360. --- 21,27 ----
  3361.       char dev_axis_font[MFNAME];    /* Default name of axis font         */
  3362.       double dev_axis_size;    /* Default size of axis font (pnts)  */
  3363.       hard_dev_docu dev_docu;    /* Document predicate                */
  3364. ! } hard_dev;
  3365.   
  3366.   extern int hard_count;
  3367.   extern struct hard_dev hard_devices[];
  3368. *** ./src/xgraph/make.template    Thu Oct  1 14:41:36 1992
  3369. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/src/xgraph/make.template    Wed Apr 14 15:41:03 1993
  3370. ***************
  3371. *** 1,6 ****
  3372.   # Ptolemy-style makefile for xgraph
  3373.   # Version identification:
  3374. ! # @(#)make.template    1.3    10/1/92
  3375.   # Copyright (c) 1991 The Regents of the University of California.
  3376.   #                       All Rights Reserved.
  3377.   
  3378. --- 1,6 ----
  3379.   # Ptolemy-style makefile for xgraph
  3380.   # Version identification:
  3381. ! # @(#)make.template    1.4    4/14/93
  3382.   # Copyright (c) 1991 The Regents of the University of California.
  3383.   #                       All Rights Reserved.
  3384.   
  3385. ***************
  3386. *** 23,29 ****
  3387.   
  3388.   xgraph:    $(OBJS)
  3389.       rm -f xgraph
  3390. !     cc $(X11LIBDIR) -o xgraph $(OBJS) $(LXEXT) $(LX11) -lm
  3391.   
  3392.   OUT = $(BINDIR)/xgraph
  3393.   
  3394. --- 23,29 ----
  3395.   
  3396.   xgraph:    $(OBJS)
  3397.       rm -f xgraph
  3398. !     $(CC) $(X11LIBDIR) -o xgraph $(OBJS) $(LXEXT) $(LX11) -lm
  3399.   
  3400.   OUT = $(BINDIR)/xgraph
  3401.   
  3402. *** ./lib/pigiRpcShell    Fri Dec 11 14:13:10 1992
  3403. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/lib/pigiRpcShell    Wed Apr 21 10:54:05 1993
  3404. ***************
  3405. *** 1,6 ****
  3406.   #! /bin/sh
  3407.   # usage: pigiRpcShell <vem-rpc-args>
  3408. ! # Version: @(#)pigiRpcShell    1.3 12/11/92
  3409.   # Copyright (c) 1990,1991,1992 The Regents of the University of California.
  3410.   # All Rights Reserved.
  3411.   #
  3412. --- 1,6 ----
  3413.   #! /bin/sh
  3414.   # usage: pigiRpcShell <vem-rpc-args>
  3415. ! # Version: @(#)pigiRpcShell    1.4    1/19/93
  3416.   # Copyright (c) 1990,1991,1992 The Regents of the University of California.
  3417.   # All Rights Reserved.
  3418.   #
  3419. ***************
  3420. *** 17,22 ****
  3421. --- 17,24 ----
  3422.   #
  3423.   # check if we have an environment-passing file
  3424.   #
  3425. + # SysV uses LOGNAME instead of USER
  3426. + USER=${USER-$LOGNAME}
  3427.   cmdfile=/tmp/pigiCmds.$USER
  3428.   if [ -r $cmdfile ] ; then
  3429.       . $cmdfile
  3430. ***************
  3431. *** 24,34 ****
  3432.   libdir=`dirname $0`
  3433.   PTOLEMY=${PTOLEMY-`dirname $libdir`}
  3434.   HOME=${HOME-.}
  3435. ! ARCH=${ARCH-`(/bin/arch || /bin/machine) 2> /dev/null`}
  3436.   PIGIRPC=${PIGIRPC-$PTOLEMY/bin.$ARCH/pigiRpc}
  3437.   COMMAND=${COMMAND-$PIGIRPC}
  3438.   DISPLAY=${DISPLAY-'unix:0'}
  3439.   TAILARGS=${TAILARGS-''}
  3440.   export PTOLEMY HOME ARCH PIGIRPC DISPLAY
  3441. ! chdir $HOME
  3442.   exec $COMMAND $* $TAILARGS
  3443. --- 26,36 ----
  3444.   libdir=`dirname $0`
  3445.   PTOLEMY=${PTOLEMY-`dirname $libdir`}
  3446.   HOME=${HOME-.}
  3447. ! ARCH=${ARCH-`(/bin/arch || /bin/machine || $PTOLEMY/bin/arch ) 2> /dev/null`}
  3448.   PIGIRPC=${PIGIRPC-$PTOLEMY/bin.$ARCH/pigiRpc}
  3449.   COMMAND=${COMMAND-$PIGIRPC}
  3450.   DISPLAY=${DISPLAY-'unix:0'}
  3451.   TAILARGS=${TAILARGS-''}
  3452.   export PTOLEMY HOME ARCH PIGIRPC DISPLAY
  3453. ! cd $HOME
  3454.   exec $COMMAND $* $TAILARGS
  3455. *** ./bin/pigi    Fri Dec 11 22:27:26 1992
  3456. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/bin/pigi    Thu Apr 15 14:46:59 1993
  3457. ***************
  3458. *** 6,12 ****
  3459.   # 
  3460.   # This is a modified version to support a PTOLEMY environment variable.
  3461.   #
  3462. ! # Version: @(#)pigiEnv.csh    1.4 12/11/92
  3463.   # Copyright (c) 1990,1991,1992 The Regents of the University of California.
  3464.   #     All Rights Reserved.
  3465.   #
  3466. --- 6,12 ----
  3467.   # 
  3468.   # This is a modified version to support a PTOLEMY environment variable.
  3469.   #
  3470. ! # Version: @(#)pigiEnv.csh    1.5    1/19/93
  3471.   # Copyright (c) 1990,1991,1992 The Regents of the University of California.
  3472.   #     All Rights Reserved.
  3473.   #
  3474. ***************
  3475. *** 16,27 ****
  3476.       exit 1
  3477.   endif
  3478.   
  3479. ! if ( ! $?PTOLEMY ) setenv PTOLEMY ~ptolemy
  3480.   if ( ! $?ARCH ) then
  3481.       setenv ARCH `$PTOLEMY/bin/arch`
  3482.   endif
  3483.   
  3484. ! if ( ! $?PIGIRPC ) setenv PIGIRPC $PTOLEMY/bin.$ARCH/pigiRpc
  3485.   
  3486.   if ( "$1" == "-debug" ) then
  3487.       shift
  3488. --- 16,37 ----
  3489.       exit 1
  3490.   endif
  3491.   
  3492. ! if ( ! $?PTOLEMY ) then 
  3493. !     setenv PTOLEMY ~ptolemy
  3494. ! endif
  3495. ! if ( ! $?OCTTOOLS ) then
  3496. !     setenv OCTTOOLS $PTOLEMY
  3497. ! endif
  3498. ! if ( ! $?USER ) then 
  3499. !     setenv USER $LOGNAME
  3500. ! endif
  3501.   if ( ! $?ARCH ) then
  3502.       setenv ARCH `$PTOLEMY/bin/arch`
  3503.   endif
  3504.   
  3505. ! if ( ! $?PIGIRPC ) then
  3506. !     setenv PIGIRPC $PTOLEMY/bin.$ARCH/pigiRpc
  3507. ! endif
  3508.   
  3509.   if ( "$1" == "-debug" ) then
  3510.       shift
  3511. *** ./bin/pigiEnv.csh    Fri Dec 11 22:27:26 1992
  3512. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/bin/pigiEnv.csh    Mon Apr 12 17:54:27 1993
  3513. ***************
  3514. *** 6,12 ****
  3515.   # 
  3516.   # This is a modified version to support a PTOLEMY environment variable.
  3517.   #
  3518. ! # Version: @(#)pigiEnv.csh    1.4 12/11/92
  3519.   # Copyright (c) 1990,1991,1992 The Regents of the University of California.
  3520.   #     All Rights Reserved.
  3521.   #
  3522. --- 6,12 ----
  3523.   # 
  3524.   # This is a modified version to support a PTOLEMY environment variable.
  3525.   #
  3526. ! # Version: @(#)pigiEnv.csh    1.5    1/19/93
  3527.   # Copyright (c) 1990,1991,1992 The Regents of the University of California.
  3528.   #     All Rights Reserved.
  3529.   #
  3530. ***************
  3531. *** 17,22 ****
  3532. --- 17,24 ----
  3533.   endif
  3534.   
  3535.   if ( ! $?PTOLEMY ) setenv PTOLEMY ~ptolemy
  3536. + if ( ! $?OCTTOOLS ) setenv OCTTOOLS $PTOLEMY
  3537. + if ( ! $?USER ) setenv USER $LOGNAME
  3538.   if ( ! $?ARCH ) then
  3539.       setenv ARCH `$PTOLEMY/bin/arch`
  3540.   endif
  3541. *** ./bin/prfacet    Tue Dec  1 09:54:30 1992
  3542. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/bin/prfacet    Mon Apr 12 17:54:28 1993
  3543. ***************
  3544. *** 1,15 ****
  3545.   #!/bin/csh -f
  3546.   # prfacet
  3547. ! # @(#)prfacet    1.5    12/1/92
  3548.   #
  3549. ! # Print a facet using oct2ps to the printer specified by the environment
  3550. ! # variable PRINTER.
  3551.   #
  3552.   
  3553. - if ( ! $?PTOLEMY ) setenv PTOLEMY ~ptolemy
  3554.   
  3555.   set path = ( $PTOLEMY/octtools/bin.$ARCH $path )
  3556. ! if (!($?OCTTOOLS)) then
  3557. !     setenv OCTTOOLS $PTOLEMY
  3558. ! endif
  3559. ! oct2ps -=T $PTOLEMY/lib/bw_patterns -f interface $*\:schematic | lpr -P$PRINTER
  3560. --- 1,48 ----
  3561.   #!/bin/csh -f
  3562.   # prfacet
  3563. ! # SCCS info: %W% %G%
  3564.   #
  3565. ! # Using oct2ps, send a PostScript view of a facet to a printer or file.
  3566.   #
  3567. + # usage: prfacet [-TOFILE file] [oct2ps options] facet-name
  3568. + #
  3569. + #    Generate a PostScript view of the specified facet.
  3570. + #    If the first argument to prfacet is "-TOFILE", the PostScript
  3571. + #    is saved to the specified file.    If "-TOFILE" is not the first
  3572. + #    argument to prfacet, the PostScript is sent directly to the
  3573. + #    printer. The printer name must be specified    by the environment
  3574. + #    variable PRINTER.
  3575. + #
  3576. + #    The last option must be the pathname of the facet to be printed.
  3577. + #    All other options are passed to "oct2ps".
  3578.   
  3579.   
  3580. + ##
  3581. + ## Set shell and environment variables.
  3582. + ##
  3583. + if (!($?PTOLEMY)) setenv PTOLEMY ~ptolemy
  3584. + if (!($?OCTTOOLS)) setenv OCTTOOLS $PTOLEMY
  3585.   set path = ( $PTOLEMY/octtools/bin.$ARCH $path )
  3586. ! set fixedArgs = ( -=T $PTOLEMY/lib/bw_patterns -f interface )
  3587. ! 
  3588. ! 
  3589. ! ##
  3590. ! ## Need two separate "if" lines below because we can't
  3591. ! ## check $argv[1] whenever $#argv == 0.
  3592. ! ##
  3593. ! ## Need `expr` below because the simpler expression
  3594. ! ##        if ($argv[1] != "-TOFILE)
  3595. ! ## fails whenever $argv[1] is "-x", "-f", etc.
  3596. ! ##
  3597. ! if ($#argv == 0) goto ToPrint
  3598. ! if (`expr $argv[1] != "-TOFILE"`) goto ToPrint
  3599. ! goto ToFile
  3600. ! 
  3601. ! 
  3602. ! ToFile:
  3603. !     oct2ps $fixedArgs $argv[3-]\:schematic > $argv[2]
  3604. !     exit
  3605. ! 
  3606. ! ToPrint:
  3607. !     oct2ps $fixedArgs $argv[*]\:schematic | lpr -P$PRINTER
  3608. !     exit
  3609. *** ./bin/ptman    Fri Dec 11 11:40:52 1992
  3610. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/bin/ptman    Mon Apr 12 17:54:28 1993
  3611. ***************
  3612. *** 1,6 ****
  3613.   #!/bin/csh -f
  3614.   
  3615. ! # @(#)ptman    1.6    12/11/92
  3616.   
  3617.   # Print a man page for a Ptolemy star.  Star can have its domain prepended to
  3618.   # it (e.g., SDFLMS) or not (e.g., LMS).  Looks through all the domains in
  3619. --- 1,6 ----
  3620.   #!/bin/csh -f
  3621.   
  3622. ! # @(#)ptman    1.7    2/8/93
  3623.   
  3624.   # Print a man page for a Ptolemy star.  Star can have its domain prepended to
  3625.   # it (e.g., SDFLMS) or not (e.g., LMS).  Looks through all the domains in
  3626. ***************
  3627. *** 66,72 ****
  3628.   # Find the star
  3629.   cd $domaindir
  3630.   if ($?PTMANPATH) then
  3631. !     set domains = $PTMANPATH
  3632.   else
  3633.       set domains = `ls`
  3634.   endif
  3635. --- 66,72 ----
  3636.   # Find the star
  3637.   cd $domaindir
  3638.   if ($?PTMANPATH) then
  3639. !     set domains = ($PTMANPATH)
  3640.   else
  3641.       set domains = `ls`
  3642.   endif
  3643. *** ./bin/arch    Thu Oct 15 11:22:09 1992
  3644. --- /imports/ptolemy/pt1/ptolemy/PTOLEMY_0.4.1/ptolemy/bin/arch    Wed Apr 14 13:42:38 1993
  3645. ***************
  3646. *** 1,5 ****
  3647.   #! /bin/sh
  3648. ! # @(#)arch    1.2    10/15/92
  3649.   # shell script to figure out architecture, using C preprocessor
  3650.   # works on the architectures we support.
  3651.   /lib/cpp << EOF | grep '^X' | sed s/X//
  3652. --- 1,5 ----
  3653.   #! /bin/sh
  3654. ! # @(#)arch    1.3    4/14/93
  3655.   # shell script to figure out architecture, using C preprocessor
  3656.   # works on the architectures we support.
  3657.   /lib/cpp << EOF | grep '^X' | sed s/X//
  3658. ***************
  3659. *** 17,22 ****
  3660.   Xmips
  3661.   #endif
  3662.   #ifdef hppa
  3663. ! Xsnake
  3664.   #endif
  3665.   EOF
  3666. --- 17,22 ----
  3667.   Xmips
  3668.   #endif
  3669.   #ifdef hppa
  3670. ! Xhppa
  3671.   #endif
  3672.   EOF
  3673.